#!/usr/bin/perl
use strict;
use warnings;

my %test = ();

$test{foo}    = \do{my $bar = 'bar'; };
$test{test}   = $test{foo};

print ${$test{test}},"\n";
print ${$test{foo}},"\n";


${$test{foo}} = 'foobar';

print ${$test{test}},"\n";
print ${$test{foo}},"\n";