$ perl -wle'my @a = qw( a b c ); my @i = 2; print @a[@i]'
c

##</code><code>##

$ perl -wle'my @a = qw( a b c ); my @i = 2; print $a[@i]'
b