Okay, now 77 (if you don't miss the trailing newline):

$i=9;do{print"\n",map{(sort abs$_-$ARGV[0],abs$i-$ARGV[1])[-1]}1..9}wh
+ile--$i
[download]

Russ