in reply to printing Hash

In addition, use next: 
for ( keys %hash ) {
   next if not $_ > 1;
   ...
}

[download]


In Section Seekers of Perl Wisdom