Here's an amended version of your attempt that weighs in at 9 characters less:

#!/usr/bin/perl
@q=@ARGV;for($y=9;$y--;){print abs$q[1]-$y>abs$q[0]-$_?abs$q[1]-$y:abs
+($q[0]-$_)for(1..9);print$/}
[download]

.02

cLive ;-)