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

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