sub in_list {my $target=shift; $_ eq $target and return 1 for @_; return}