use strict; 
use warnings; 
use Data::Dumper; 
open FH,"<file" or die "can't Open $!\n"; 
my $line; 
my %hash; 
while($line=<FH>) 
{ 
     
      
         my($value,$value2)=split(' ',$line); 
         $hash{$value}+=$value2; 
      
} 
 
foreach my $key (keys%hash) 
{ 
    print "$key => $hash{$key}\n" 
}