use strict;
use warnings;

my $var = 42;

print "before: $var\n";

for $var (1 .. 10) {
    print "$var ";
}

print "\nafter: $var\n";