You can get 4 more with shift vs pop. + 1 for a useless ;.

$z=10-pop;$x=pop;map{$t=abs$z-$_;print map($t>abs$x-$_?$t:abs$x-$_,1..
+9),$/}1..9
[download]

(I also fixed a bug.)