for my $row (@out){
    for my $col (@$row){ 
         # do something;
    }
    print "\n";
}