{
my %Set = ( 'age' => 1, 'old' => 1, 'years' => 1);
sub IsMember {
return $Set{$_[0]};
    }
}