How Perl changes the values of array elements

To re-assign each array element with a For loop:

#!/usr/bin/perl
@array = (1..30);
print "@array\n";
for($i=0; $i<=$#array; $i++){
	$array[$i] = $array[$i] + 10;
}
print "@array\n";

Re-assigns each array element with a while loop:

#!/usr/bin/perl
@array = (1..30);
$count = 1;
print @array;

while($count <= @array){
	$array[$count - 1] += 10;
	$count++;
}
print @array;

Re-assigning each array element with a Foreach Loop: (foreach can operate on more arrays)

#!/usr/bin/perl
@array = (1..30);
print "@array\n";
@array_1 = (31..60);
foreach $item (@array,@array_1){
	$item += 10;
}
print "@array\n";
print "@array_1\n"

How Perl changes the values of array elements