@a = (0,1,2);
	foreach $element (@a) {
	  print $element, "\n";
	  $a[1] = 'foo';
	}