{
  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} );
  }
}