Let's knock another 4 characters off :)

($a,$b)=@ARGV;for($y=9;$y--;){$c=abs$b-$y;print$/,map{$d=abs$a-$_;$c>$
+d?$c:$d}(1..9)}
[download]

.02

cLive ;-)