my @array1 = qw(one two three four five);
my @array2 = qw(blue green white orange black);
my @array3 = qw(car bike plane ship);

my @array_ref = (\@array1, \@array2, \@array3);

print $#{$array_ref};