BEGIN {
  my %members;
  undef @members{qw(age old years)};
  sub is_member {
    return exists $members{$_[0]};
  }
}