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