my $delim = ",";
my $set = $delim . join($delim, keys %set) . $delim;

sub IsMember {
    return index($set, "$delim$_[0]$delim") != -1;
}