package Pet; 
    
my (%colour, %name, %species);
    
sub new {bless [] => shift}   
 
sub colour  : lvalue {$colour  {+shift}};
sub name    : lvalue {$name    {+shift}};
sub species : lvalue {$species {+shift}};

sub DESTROY {
    my $self = shift;
    delete $colour  {$self};
    delete $name    {$self};
    delete $species {$self};
}
1; 

__END__