print "** Random 4 Lotto Numbers **\n";
print "** Type any four digits (0 to 9) **\n"\n;

for ($i=1; $i <= 4; $i++) {
     print "Choice $i: ";
     chomp ($digit[$i] = <>);
     redo if $digit[$1] > 9;
     redo if $digit[$1] < 0;
 }
 
 print "Your choices :@digit \n";