Select Code to Download

Select or download this

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

Select or download this

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