recorrer arrays multidimensionales en PERL

[elkronos]

esta es la forma correcta de hacerlo

#!/usr/bin/perl
$resultado[0][0]=1;
$resultado[0][1]=2;
$resultado[1][0]=3;
$resultado[1][1]=4;



my ($x,$y);

foreach $x (0..@resultado-1){

foreach $y (0..@{$resultado[$x]}-1){
print "$resultado[$x][$y] \n";
}

}