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