use strict;
use warnings;

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

my @column;
for my $month_data (@AoA) {
  push @column, $month_data->[0];
}
print join( ' ', @column ), "\n";

##</code><code>##

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'