mmm, isn't it the same as

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