# These are bad, um-kay?
my $a;
$a = \$a;

my ($b,$c);
($b, $c) = \($c, $b);

my @d;
$d[0]=0;
$d[$_]=\$d[$_-1] for (1..100_000);
$d[0]=\$d[$#d];