sub in_array {
  my $value = shift(@_) ;
  my @array = @_ ;
  return scalar(grep({$_ eq $value} @array)) ;
}