Select Code to Download

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

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

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

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

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