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