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