use strict;

my $var=0;
for $var (1..9){
        print $var;
}
print "\n", $var, "\n";

##</code><code>##

my $var1=0;

for my $var2 (1..9){
        print $var2;
        $var1 = $var2;
}
print "\n", $var1, "\n";

##</code><code>##

use strict;
my $var;
for ($var=1; $var < 10; ++$var){
	print $var;
}
print "\n", $var, "\n";