Select Code to Download

$, = " \n";

open (FH, $ARGV[0]) or die ("could not open file");
my @data = <FH>;

foreach my $data (@data)
{
...
        my $value = $numbers[1];
        $myhash{$word} = $myhash{$word} + $value;
}

while(my($key, $value) = each %myhash){
    print $key . ":" . $value . "\n";
}

close (FH);