use strict; use warnings; my $S4 = "aaa"; sub X { print "<$S4>\n"; return $S4; } for $S4 (1 .. 2) { print "A: <$S4> <", X(), ">\n"; } $S4 = "bbb"; print "B: <", X(), ">\n";