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