Select Code to Download

sub circ_ref {
    my $dad = {};
...
my $son = circ_ref()->{son}; # Doh! Who's your daddy?

print Data::Dumper::Dumper $dad, $son;