#=for1.pl - Perl 5 Version
use strict;

foreach my $i (1..10) {
	print "$i\n";
}