Determining if a scalar is an element of a list

Determining if a scalar is an element of a list

multi sub member (*$val)            returns Bool { 0 }
multi sub member (*$val, *$x, *@xs) returns Bool { ($val eq $x) || member($val, @xs) }

say "... member";
say member('foo', 1, 'foo', 3, 4, 'bar'); 
say member('baz', 1, 'foo', 3, 4, 'bar');
say member('bar', 1, 'foo', 3, 4, 'bar');           

sub member {
  my ($x, @lis) = @_;
  for my $elem (@lis) {
    return 1 if $x eq $elem
  }
  return 0
}