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