my $a = 0;
$a += $_ for 1..1000;
print "Answer: $a\n";