while (my $line = <$file>) {
       chomp ($line);
       my ($in_game, $three, $two, $one) = split (',', $line);
       $totals{$in_game}{$three} += 3;
       $totals{$in_game}{$two}   += 2;
       $totals{$in_game}{$one}   += 1;
}