print "$array1[0][0]\n\n";

for (my $x = 0; $x < @array1; ++$x) {
    for (my $y = 0; $y < @{$array1[$x]}; ++$y) {
        print "$array1[$x][$y] ";
    }

    print "\n";
}

print "\n";
print "@$_\n" for @array1;