#!/usr/bin/perl -w
use strict;
# my $a = 0; ## notice this is deleted!
$a += $_ for 1..1000; 
print "Answer: $a\n";