use strict;

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