perl -wle 'my @a=1..9; printf"$a[%d]\n", 4'

perl -wle 'my @a=1..9; printf"$a[%2d]\n", 4'

perl -wle 'my @a=1..9; printf"\$a[%d]\n", 4'

##</code><code>##

perl -wle 'my @a=1..9; printf"%d\n", $a[4]'