sub nn { my@x=@_[0,1];@_=sort{abs$x[0]-$x[1]$b}@_;@x }