@test = (1,2,3,4);
 
foreach (@test) {
   my $_tempvar = $_;

   $_tempvar = "A";
} 
     
print @test;