Help for this page

Select Code to Download

Select or download this

my %Hash;
while (<INFILE>) {
...
    $Hash{$k} += $v;
}
my @unique = keys %Hash;