while (my ($key,$val) = each(%some::very::long::named::module::foo)){
   if(testconditions($key)){
      some::very::long::named::module::drawSomethingPretty($val)}}