Select Code to Download

    foreach (1..5) {  
        my $a;  
...
        $a->{b} = $b;  
        $b->{a} = $a;  
    } # since both are pointing to each other they will never get coll
+ected.