#!usr/bin/perl

use warnings;

@array = (1 .. 10);

for ($1 = 0; $i <= 10; $i++) {


	$element = $array[$i];
	print "Element $1 equals $element \n";
}