Help for this page

Select Code to Download

Select or download this

my %pop;

...

print("$_ => $filtered{$_}\n")
   foreach sort keys %filtered;