#!usr/bin/perl

use warnings;

@array = (1 .. 10);

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


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

##</code><code>##

C:\JPARK\JPPERL>test.pl
Modification of a read-only value attempted at C:\JPARK\JPPERL\test.pl line 7.

C:\JPARK\JPPERL>test.pl
Modification of a read-only value attempted at C:\JPARK\JPPERL\test.pl line 7.

C:\JPARK\JPPERL>