my $a; # a 2d-array
my $count=0;
for (@$a){
  for (@$_){
    $count++;
  }
}
print "My 2D-array is $count long\n";