sub member {
           my $possible    = $_[0];
           my $array_ref   = $_[1];

           foreach my $member ( @{$array_ref} ) {
                   if ( $member eq $possible ) { return "1"; }
           }

           return "0";
   }