sub closest { $n=pop;$c=pop;abs$n-$_