## Declare few single dimensional array 
my @row1 = qw(71 22 15 10 51); 
my @row2 = qw(91 82 28 11 91); 
my @row3 = qw(11 72 37 58 20); 
my @row4 = qw(21 42 63 24 16); 
my @row5 = qw(81 32 53 54 42); 


## Adding all the single dimensional array reference into another array


my @array_2d = (\@row1, \@row2, \@row3, \@row4, \@row5);


print "Print Using Array Index\n";
for(my $i = 0; $i <= $#array_2d; $i++){
   # $#array_2d gives the highest index from the array
   for(my $j = 0; $j <= $#array_2d ; $j++){
      print "$array_2d[$i][$j] ";
   }
   print "\n";
}