Select Code to Download

# USER VARIABLES
# define number of people, number of prizes, number of draws (> 5)
...

# FUNCTIONS 1
sub ...

sub getRand {
    my $temp;
...
        }
    }
}