Select Code to Download

$a = [ 1 .. 30 ];
print @{ $a }[0,1,2,5..10,19]; # prints 1236789101120

$h = { foo => 1, bar => 2, baz => 3 };
print @{ $h }{foo, baz}; # prints 13