push @{$stats[$month]}, $value;
...
for my $month (1..12) {
    print "NR ", scalar(@{$stats[$month]}), "\n";
    print $stats[$month][0], "\n";
}