It is good to point out that use strict is needed here.

If you also add use warnings, you will notice that the print statement is accessing an undefined value,  $digit[0] I suspect that the original author meant to say the equivalent of

foreach my $i ( 0..3){
[download]

or if not the print should be:

print "Your choices  : @digit[1..4] \n";
[download]

iakobski