Select Code to Download

use strict;
use warnings;
...
  push @column, $month_data->[0];
}
print join( ' ', @column ), "\n";

use strict;
use warnings;
...

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