% perl -le '$b=[1..4]; $#a=$b; print $#{$#a}'
3