{ my %agedata; sub age { my $self = shift; return $age{$self} unless @_; $age{$self} = shift; }}