sub nn{my$x=pop;(sort{$b<=>$a}map{abs($_-$x)}@_)[0,1]}