for ($i_lottery=0; $i_lottery<$NumberOfTickets; $i_lottery++)
{
for ($i=0; $i<$NumbersOnTickets; $i++)
{
$lotto[$i]= int(rand($HighestNumberOnTicket)) + 1;
}

grep($NumbersOnTickets,@lotto);
$NumbersOnTickets=@lotto;

@sorted = sort { $a <=> $b } @lotto;   
print "@sorted";
print "<P>";
}