#!env perl
use strict;
use warnings;

my $S4;

sub X {
    print "<$S4>\n";
    return $S4;
}

for my $other_variable_also_named_S4 (1 .. 2) {
    print "A: <$other_variable_also_named_S4> <", X(), ">\n";
}