use strict;
use warnings;
use Data::Dumper;
my %hash;
while(<DATA>){
	my ($key, $number)=split;
	$hash{$key} +=$number;
	}

print Dumper (\%hash);
__DATA__
apples 10
oranges 3
apples 3
oranges 7