c:\@Work\Perl\monks>perl -wMstrict -le
"my $one = ('zero', 'uno', 'two')[1];
 print qq{'$one'};
"
'uno'