Масивите в Perl са само едномерни, няма шега

Многомерни масиви се реализират чрез референции (кхм, указатели). Виж следния пример (и отговор на въпроса, надявам се):

#!/usr/bin/perl

use warnings;
use strict;

sub arraydepth
{
my $arrayref = shift;
my $depth = 0;

while ('ARRAY' eq ref($arrayref))
{
$depth++;
$arrayref = $arrayref->[0];
}

return $depth;
}

my @a = (1,2);
my @b = (3,4);
my @c = (5,6);
my @d = (7,8);
my @w = (\@a,\@b);
my @t = (\@c,\@d);
my @x = (\@w,\@t);

print
arraydepth('X'), " ",
arraydepth(\@a), " ",
arraydepth(\@w), " ",
arraydepth(\@x), "\n";

RTFM!
--sdg