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