$sref \$string1; foreach $string2 ( @array_of_strings ) { $string1 = $string2; print $$sref; }