Perl => 2 arr

#!/usr/bin/perl

 

my @arr;

 

$arr[0][0]=0;

$arr[0][1]=1;

$arr[1][0]=2;

$arr[1][1]=3;

 

my $i;

my $j;

 

for ($i=0; $i<2; $i++) {

    for ($j=0; $j<2; $j++) {

        print "$arr[$i][$j]/n"

    }

}

 

print "=====================/n";

foreach my $c (@{$arr[0]}) {

    print "$c/n";

}

print "=====================/n";

=pod

push @arr[0], 4;

push @arr[0], 5;

push @arr[1], 6;

push @arr[1], 7;

 

for ($i=0; $i<4; $i++) {

    for ($j=0; $j<4; $j++) {

        print "$arr[$i][$j]/n"

    }

}

=cut

~