Select Code to Download

#!/usr/bin/perl
my %h;
...
}
close F;
print "$h{$_}\t$_\n" for keys %h;

#!/usr/bin/perl
{
...
my %h;
$h{$_}++ for @ips;
print "$h{$_}\t$_\n" for keys %h;