Select Code to Download

my %dirs = (
    # IN   [ preferred output directions ]
...
    'sw' => [ -1,  1, 'ne' ],
    'w'  => [ -1,  0, 'e'  ],
);

OUTER2:
while (1) {
...
    print "Can't find anywhere to go! ('$in_dir': $x, $y)\n";
    last OUTER2;
}

Found a bit of horizontal top edge at 22, 1
 indir  w to  w code B path                    ne  e  (23,1)
...
 indir  s to  w code S path        sw  w nw  n ne  e  (21,2)
 indir  w to sw code T path                       ne  (22,1)
Can't find anywhere to go! ('sw': 22, 1)