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;
}