my $y = 5;
my $x;
for $x ($y) {
   ++$x;
   print "$y\n";  # 6
}
++$x;
print "$y\n";  # 6