sub s_in_a # scalar in array
{
  my $s = shift;
  foreach (@_)
  {
    return 1 if $s eq $_;
  }
  0;
}