for (my $m = 1; $m <=12; $m++)
{
   my %hash = %hash; ## poor name