$, = " \n"; 
##</code><code>##

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

foreach my $data (@data)
{
        $data =~ m/(\w+:-?\d+)/;
        my @numbers= split(/:/,$1);
        my $word = $numbers[0];
        my $value = $numbers[1];
        $myhash{$word} = $myhash{$word} + $value;
}

##</code><code>##

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

##</code><code>##

close (FH);