for (1..1000000) {
    my $h = {};
    $h->{myself} = $h;
}