Select Code to Download

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

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