my @array = qw(1 2 3);
my $x = 1;
if (num_in($x, @array)) {
...
}

sub num_in {
  my $num = shift;
  $_ == $num and return 1 for @_;
  return;
}