my $x = 1;
for my $y ($x) {
    $y++;
}
print $x;  # 2