Select Code to Download

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

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