foreach my $rec (@records) {
    chomp($rec);
    ($game, $commercial) = split(/,/, $rec);
        print "\$game: >$game<\n\$commercial: >$commercial<\n"; # <<<< debug
        $game_count{$game} = $game_count{$game} + 1;
        $comm_count[$commercial] = $comm_count[$commercial] + 1;
}