You don't need a readonly hash if you just use a closure...no code outside the block can change the hash:

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