for (1..10) {
    my $r1;
    my $r2 = \$r1;
    my $r3 = \$r2;
       $r1 = \$r3;
}

# You have just leaked 30 variables.