sub as_string {
    my $self = shift;
    return $name{ id $self } . " is " . $age{ id $self } . " year(s) old.";
}