$v=A;${$v++}=$_ for glob<>.<>.<>;printf sort{$a<=>$b}(abs$G-$E)x$D=~$F,$E+$G-1,$$D-$E+1+$$F-$G,($$D-$E)+1+($$F-$G),map{$E+$$_+$$F-$G,$$D-$E+$$_+$G}A..C