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

##</code><code>##

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

##</code><code>##

{{ my $variable } sub accessor {
      ....
}}