Select Code to Download

use warnings;
use strict;
...
        print join( " " => ( $p[$i], $p[$j], $j - $i ) ), $/ unless $i
+ >= $j;
    }
}

PA5098 PA5100 1
PA5098 PA5092 2
...
PA5100 PA5092 1
PA5100 PA3175 2
PA5092 PA3175 1