Select Code to Download

use Scalar::Util qw(weaken);
my $count = 3000;
...
    my $y = $x; 
    weaken $y;
} while $count--;

use Scalar::Util qw(weaken);
my $count = 3000;
...
    my $y = $x; 
    weaken $y;
} while $count--;