#!/usr/bin/perl

$counter = 0;

print "Welcome to the lottery program!\n";
print "How many tickets would you like to purchase? (1 - 10): ";
chomp($tickets=<STDIN>);
print "\n";
print "\n";

do
{
    if ($tickets > 10)
    {
        print "To many tickets, purchase 10 or fewer...";
        chomp($tickets=<STDIN>);
    }
}
while ($tickets > 10);

print "How many numbers will be on each of your tickets? ";
chomp($numbers=<STDIN>);
print "\n";
print "\n";

print "What is the maximum number for each ticket? ";
chomp($maximum=<STDIN>);
print "\n";
print "\n";

print "These are your lottery tickets\n";
do
{
    my @numbers = (1..$maximum);
    my $limit = $numbers;
    my %list = ();
    while (keys %list < $limit)
    {
        $list{$numbers[rand @numbers]}=1;
    }
    print join(' ', sort {$a <=> $b} keys %list);
    print "\n";
    $counter++;
}
while ($counter < $tickets);

print "\n";
print "\n";

print "The winning combination of lottery numbers is...";
my @numbers = (1..$maximum);
my $limit = $numbers;
my %list = ();
while (keys %list < $limit)
    {
    $list{$numbers[rand @numbers]}=1;
    }
print join(' ', sort {$a <=> $b} keys %list);

print "\n";
print "Thank you for using the lottery program!\n";