my $a = 2;
$_++ for 1..$a;
print "$a\n";
# 2

##</code><code>##

my $a = 2;
$_++ for 1..2;
print "$a\n";