#!/usr/bin/perl
use strict;

my $i;

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


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