my %names;
open (FILE, "data") or die "Cant open data: $!\n";
while (<DATA>) {
   chomp;
   my ($tempname, $tempnum) = split / /;
   $names{"$tempname"} += $tempnum;
}
close FILE;