my @ary = ( [ 1 .. 3 ], [ 4 .. 6 ], [ 7 .. 9 ] );
print map $_->[0], @ary;

__output__

147