for (1..100) {
	my $i = 1;
	print \$i, "\n";
}