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