perl -wle'
$[ = 23;
@a = qw/ a b c /;
print $a[23]'
a