sub in_array{
    
    my @arr = @_[1];
    my $search = $_[0];
    
    foreach (@arr) {
        if($search eq $_) {
                  return 1;
                  }
        }
    
    return 0;
    }