#!/usr/bin/perl
my @ar1;
$ar1[0][0] = "one";
$ar1[0][1] = "two";
$ar1[1][0] = "three";
$ar1[1][1] = "four";
$ar1[1][2] = "five";
my $count = scalar @{ $ar1[1] };
print "count = $count\n";

##</code><code>##

However, if I create the array this way it doesn't work:

#!/usr/bin/perl
my @ar1;
$ar1 = (["one", "two"], ["three", "four", "five"]);
my $count = scalar @{ $ar1[1] };
print "count = $count\n";