sub in_list {my $target=shift; return 0+grep { $_ eq $target } @_}