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
}

##</code><code>##

  push @draw, ($key) x $hash{$key};

##</code><code>##

foreach my $key ( keys %hash )
{
    push @draw, ($key) x $hash{$key};
    push @mega, ($key) x $hash{$key}
        if exists $bonus{$key};
}

##</code><code>##

    my $number;
    do {
        $number = draw_regular();
    } while ( grep { $_ == $number } @picked );
    push @picked, $number;

##</code><code>##

    my $number;
    do {
        $number = draw_regular();
    } while ( exists $seen{$number} );
    $seen{$number}++;
    push @picked, $number;