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