mt %h;
open (my $fh ,">","1st_out.dat" ) ;

while (<$fh>)
{
　　chomp ;
　　@foo = split / /;
　　$h{"$foo[1] $foo[2]"} += $foo[0] ;
}
close ($fh) ;

print %h ;