Array ref:

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

Hash ref:

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

[ ar0n ]