Select Code to Download

               0-0
            1-0   0-1
...
      3-0  *2-1   1-2   0-3
   4-0   3-1   2-2   1-3   0-4
5-0   4-1   3-2   2-3   1-4   0-5

0-0   0-1   0-2   0-3   0-4   0-5
1-0   1-1   1-2   1-3   1-4
...
3-0   3-1   3-2
4-0   4-1
5-0

use strict;
use warnings;
...
    # right
    pathfinder( [$l+1,$r+1,"right"], @_ ) if $r < $gr;
}

C:/Perl_64/bin\perl.exe  d:/tmp/pascale_path.pl 
[
...
]

Compilation finished at Thu Mar 22 12:41:53