my $key;
for my $k( keys %h ) {
  $key = $k if $h{$k} eq 'foo';
}
if( defined $key ) {
  # ...
}

##</code><code>##

while(defined($_ = <STDIN>)) {
    next unless $_ =~ /^something/;
    # ...
}