@test = (1,2,3,4);
 
 foreach my $_tempvar (@test) {
      $_tempvar = "A";
     } 
     
   print @test;