use Scalar::Util 'refaddr';
package Colour {
    use Scalar::Util 'refaddr';
    my %colour;
    sub new {bless \do{my $var}, $_[0]}
    sub init {$colour{refaddr $_[0]} = $_[1]; $_[0]}
    sub colour {$colour{refaddr $_[0]}}
};
package Age {
    use Scalar::Util 'refaddr';
    my %age;
    sub new {bless \do{my $var}, $_[0]}
    sub init {$age{refaddr $_[0]} = $_[1]; $_[0]}
    sub age {$age{refaddr $_[0]}}
};