use strict;
use warnings;
my @ar1 = (
    ["one",   "two",          ],
    ["three", "four", "five", ],
);
my $count = scalar @{ $ar1[1] };
print "count = $count\n";