$ perl -le '$x = rand 2; print $x'
0.0874574767967786

##</code><code>##

$ perl -wle '@y = qw{a b c}; print $y[0.0874574767967786]'
a

##</code><code>##

$ perl -MO=Deparse -e '@y = qw{a b c}; print $y[0.0874574767967786]'
@y = ('a', 'b', 'c');
print $y[0];
-e syntax OK