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

##</code><code>##

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

##</code><code>##

{
  local *foo  = *some::very::long::named::module::foo;
  local *draw = *some::very::long::named::module::drawSomethingPretty;
  foreach my $key ( grep { testconditions($_) } keys %foo ) {
    drawSomethingPretty( $foo{$key} );
  }
}

##</code><code>##

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