Help for this page

Select Code to Download

Select or download this

  my %months = (        ## Change $ to %  and { to (   --- no reason t
+o use a reference here.
         'JAN'  => '31',
...
  my $tot_days = $dd;
  for (my $i = 0; $month_keys[$i] ne $mon; $i++) { # Added my