my %hash = (processone => 1, processtwo => 0.005, processthree => 3);

  my %hash2 = map {$hash{$_} => $_} keys %hash;
  my $worst = (reverse sort keys %hash2)[0];
  print "the worst process is $hash2{$worst} with a time of $worst minutes\n";