sub g {
(sort{abs$a-$_[0]<=>abs$b-$_[0]}@_)[1]
}