sub is_in_array2 {
   my $element = shift;
   ($element eq $_) && return 1 for @_;
}