my $a = { };
my $b = { a => $a };
$a->{b} = $b;
$hash{something} = $a;
delete $hash{something};