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