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