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