sub in_list { ( $_ eq $_[0] ) && return 1 for @_[ 1 .. $#_ ]; undef;}

##</code><code>##

sub in_list {
  for (@_[ 1 .. $#_ ]){
    return 1 if $_ eq $_[0];
  }
  undef;
}