% perl -le '$b=[1..4]; $#a=$b; $x=$#a; print @$x'
[nothing]