c:\@Work\Perl>perl -wMstrict -le
"my $s = ('foo', 'bar', 'baz')[1];
 print qq{'$s'};
 ;;
 $s = (qw(zip zap zop))[1];
 print qq{'$s'};
 ;;
 $s = qw(hic hac hoc)[1];
 print qq{'$s'};
"
'bar'
'zap'
'hac'