Select Code to Download

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

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