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'