Hm. I used a different approach, and if my eyes don't deceive me, it's the lowest score yet. Update: No it's not ... damn:

sub g { 
#          1         2         3         4         5 
# 1234567890123456789012345678901234567890123456789012 
  $n=pop;$,=pop;$,=abs$n-$_<abs$n-$,?$_:$,for@_;$, 
}
[download]

for a score of 48.