use strict;
use warnings;

my @AoA = ( [ 'Jan', 10, 20 ], [ 'Feb', 15, 25 ], [ 'Mar', 30, 33 ] );

print join( ' ', map {$_->[0]} @AoA ), "\n"; # prints 'Jan Feb Mar'
print join( ' ', map {$_->[1]} @AoA ), "\n"; # prints '10 15 30'