Help for this page
for my $month_data (@ary) { ... }
$month_data->[0]
for my $month_data (@ary) { print $month_data->[0], "\n"; }