Select Code to Download

#!/usr/bin/perl
use strict;
...
my $count = $seen{$keys[0]};

print "Highest count: $highest, Count: $count\n";