my @keys=keys(%{$hash});
my $junk;
foreach my $key (@keys)
{
  if(ref($hash->{$key}))
  {
    my @keys2=keys(%{$hash->{$key});
    foreach my $key2 (@keys2)
    {
        $junk->{'TOT::'.$key}->{$key2}+=$hash->{$key}->{$key2};
        if($hash->{$key}->{$key2} > $junk->{'MAX::'.$key}->{$key2})
        {
          $junk->{'MAX::'.$key}->{$key2}=$hash->{$key}->{$key2};
        }
        if(!defined($junk->{'LAST::'.$key}->{$key2}))
        {
           $junk->{'LAST::'.$key}->{$key2}=$hash->{$key}->{$key2};
        }
      } 

    }
  }
  else
  {
    $junk->{'TOT::'.$key}+=$hash->{$key};
    if($hash->{$key} > $junk->{'MAX::'.$key})
    {
      $junk->{'MAX::'.$key}=$hash->{$key};
    }
    if(!defined($junk->{'LAST::'.$key}))
    {
       $junk->{'LAST::'.$key}=$hash->{$key};
    }
  } 
}