my $array_ref = [ \@array1, \@array2, \@array3 ];

print $#{$array_ref};