#!/usr/bin/perl -w
$a = -1;
# print "Before entering: \$a = $a\n";
foreach $a (0 .. 10) {
    print "In loop: \$a = $a\n";
}
# print "Free at last: \$a = $a\n";