while (1) { my $b; my $a = \$b; $b = \$a; }