sub search { my ($number, $target) = @_; return $target if $target <= $number; }