Just say no to defined :)

...
my( $highest_value, $highest_key  ) = each %hash;
while (my ($key, $value) = each %hash)
...
[download]