@ary = ( [1, 2, 3],
         [4, 5, 6],
         [7, 8, 9] );

##</code><code>##

map { $_->[0] } @ary[0..$#ary]