Select Code to Download

#!/usr/bin/perl

...
my @largest = @keys[0..$i-1];

print qq|Largest are "@largest"\n|;

#!/usr/bin/perl
use strict;
...
my @largest = grep { $h{$_} == $h{$keys[0]} } @keys;

print qq|Largest are "@largest"\n|;