#!/prod/gnu/bin/perl

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: ";
    ($digit[$i] = <>) =~ s/\D//g;
    redo unless $digit[$i];
    redo if $digit[$i] > 9;
    redo if $digit[$i] < 0;
}

print "Your choices :@digit \n";