Select Code to Download

sub print2DArray {
  for my $i (0 .. $#_) {  
...
    print "\n";
  }
}

sub print2DArray7 {
  for (@_) {  
...
    print "\n";
  }
}