Select Code to Download

for my $col (@array)  {
   for my $row (@$col)  {
      print "$row\n";
   }
}

my @new_array = qw ( foo bar foobar barfoo );