my $i = 123;

say $i . ' ' . \$i;

foreach $i (1 .. 3)
{
    say $i . ' ' . \$i;
}

say $i . ' ' . \$i;