a knight's tour in perl that i'm workin' on