Select Code to Download

my $a = [];
my $b = [ $a ];
push @$a, $b;
# Now $b contains a reference to $a and 
# $a contains a reference to $b.

sub marry
{
...
  $wife->set_spouse($husband);
  $wife->parent[0]->pay_for_party;
}