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