in reply to saving the key of a hash

One interpretation of the question is that you are looking for a way to save A particular key. Assuming this is what you want to do, here is some pseudo-code (untested). 
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

[download]

Offense, like beauty, is in the eye of the beholder, and a fantasy.
By guaranteeing freedom of expression, the First Amendment also guarntees offense.

In Section Seekers of Perl Wisdom