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

my @digit;
foreach my $i (1..4){
while ($digit[$i] =~/^[\D]$/){
    print "enter digit $i : ";
    chomp($digit[$i] =<>)};
}
print "Your choices  : @digit \n";