while (<FILE>) { # line at a time
  my( $game,$month,$day,$year,$one,$two,$three,$four,$five,$bonus) = split;
  for ( $one,$two,$three,$four,$five ) {
    $hash{$_}++;
  }
  $bonus{$bonus}++; # bonus
}