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