Mark the result of:
  1. @{[0..10]};
    "HASH"
    (0..10)
    10
    "ARRAY"
  2. ref {1..10};
    "HASH"
    "GLOB"
    "SCALAR"
    "ARRAY"
  3. map {2*$_} (1..4)
    (2..8)
    (1,2,3,4)
    (1,4)
    (2,4,6,8)
  4. grep { $_ % 2 } (1..5)
    (1, 3, 5)
    (2, 4)
    5
    (1, 0, 1, 0, 1)
  5. grep {$_ = 5} (1..3)
    4
    (5,10,15)
    ERROR
    (5,5,5)
  6. 'the fat cat sat on the mat' =~ /([cat]+)/g
    qw(cat)
    qw(fat cat sat mat)
    qw(cat sat on the mat)
    qw(t at cat at t at)
  7. { map { $_ => 1 } qw/foo bar baz/ }
    qw/ foo bar baz /
    { 'foo bar baz' => 1 }
    { foo => 1, bar => 1, baz => 1 }
    $foo = $bar = $baz = 1
  8. map {2*$_} grep {/../} (1,5,15,100)
    (10,30)
    (30,200)
    (10,30,200)
    (30)
  9. grep {/../} map {2*$_} (1,5,15,100)
    (10,30,200)
    (10,30)
    (30,200)
    (30)
  10. sort map {2*$_} (1..5)
    (10,8,6,4,2)
    (2,4,6,8,10)
    (10,2,4,6,8)
    (2,10)
  11. length(grep {$_>10} (1..15))
    1
    5
    10
    20
  12. scalar(grep {$_>10} (1..15))
    1
    5
    10
    20
  13. @a[1,3,1,2,0,2] = (1..6); @a
    (1,3,1,2,0,2)
    (5,3,6,2)
    (1..6)
    (0..3)
  14. @a{1,2,9,6,2,6}=(1..6); sort keys %a
    (1,2,3,4,5,6)
    ERROR
    (1,2,6,9)
    (1,2,2,6,6,9)
  15. ref bless {}, "xpto"
    {}
    undef
    ERROR
    "xpto"