Select Code to Download

foreach my $key ( keys %hash ) {
  my $val = $hash{$key};
  ...
}

foreach my $key ( keys %some::very::long::named::module::foo ) {
  my $val =            $some::very::long::named::module::foo{$key};

{
  local *foo  = *some::very::long::named::module::foo;
...
    drawSomethingPretty( $foo{$key} );
  }
}

use some::very::long::named::module qw( foo drawSomethingPretty );
foreach my $key ( keys %foo ) {
  next if not testconditions($key);
  drawSomethingPretty( $foo{$key} );
}