#!/usr/bin/perl
use strict;


my @arr = 1..10;

foreach (@arr)
{
	print $_;
}

print "\n";

foreach (@arr)
{
	$_ += 2;
}


foreach (@arr)
{
	print;
}