my $SaveKey;

while (my ($key, $val) = each %hash){
  if (WHatever condition){
    $SaveKey = $key; # Save this one
  }
}

my $SavedValue = $hash{$SaveKey}; # Use the saved key, if any