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