sub IsMemeber {
  if $_[0] eq 'age' return 1;
  if $_[0] eq 'old' return 1;
  if $_[0] eq 'years' return 1; 
  return 0;
}