use strict;
for (1..5) {
    my $foo = 0;
    $foo += $_;
}
print $foo;