foreach my $month (1 ... 12)
{