my $x = 1;
for (1 .. 5) {
    my $x = $x;
    $x += $_;
    print $x;
}
print $x;