my @arr1 = ( 1, 2, 3);
for (@arr1) { $_ = "irgendwas"; } 
print "@arr1\n";