my $x = 1; my $y = 2; my $z;
for (1..1000) {
    $z = $x + $y;
}