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