@a=(1,2,3);

foreach my $r (@a) {
	$r=2;
}

print @a;