foreach $yy (1..26) {
    foreach $xx (1..26) {
        print " $outtie[$xx][$yy] ";
    }
    print \n
}