for my $month_data (@ary) {
    ...
}

##</code><code>##

$month_data->[0]

##</code><code>##

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