sub found($@) {
 my $a=shift;
 foreach (@_) {
  return 1 if $a eq $_;
 }
 return 0;
}