use 5.010; use strict; 

# Poor man's OO, using hash references.

my $alice = { name => 'Alice' };
my $bob   = { name => 'Bob' };
my $carol = { name => 'Carol' };
my $dave  = { name => 'Dave' };

$alice->{spouse} = $bob;
$bob->{spouse} = $alice;

$carol->{spouse} = $dave;
$dave->{spouse} = $carol;

$bob->{employer} = $carol;

say $alice->{name};                            # Alice
say $alice->{spouse}{name};                    # Bob
say $alice->{spouse}{employer}{name};          # Carol
say $alice->{spouse}{employer}{spouse}{name};  # Dave