use $#; <code>my @AOA=( 0,1,0,0, 0,0,1,0, 0,0,0,1 ); print $#AOA+1,"\n"; my @BOB=@{@AOA[0]}; print $#BOB+1,"\n";