$digit[0]


##</code><code>##

foreach my $i ( 0..3){


##</code><code>##

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