Help for this page

Select Code to Download

Select or download this

sub Compress {        
   foreach my $KEYmonth  (sort keys %{$_[0]}) {
...
   }        
   }
}