sub findMaxKey {
      my @rry=@_;
      my $max=0;
      foreach my $ix(@rry){
          $max = $ix if $ix > $max;
      } 
      return $mx
}


my $maxkey = findMaxKey(keys %hash);
[download]