my ($ref, $back);
$back = {};
$ref = {};
print $ref," ",$back, "\n";
$back = $ref;
print $ref," ",$back, "\n";