Select Code to Download

my $filename = shift @ARGV;
die "Usage: $0 FILENAME" unless defined $filename;
...
        print $ip1, $ip2, $count{$_};
    }
}

my $filename = shift @ARGV;
die "Usage: $0 FILENAME" unless defined $filename;
...
        print $ip1, $ip2, @{ $count{$_} };
    }
}