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