my $place;
for my $row (0 .. $rows) {
    for my $col (0 .. $cols) {
        print $output[$place++], " ";
    }
    print $/;
}