$ ./953722.pl
opening in1.txt:
TieInput:  $_s = \'in1 A
';
$s = \'in1 A
';
  at ./953722.pl line 107, <$In> line 1.
TieInput:  @_a = (
        'in1 B
',
        'in1 C
'
      );
@a = (
       'in1 B
',
       'in1 C
'
     );
  at ./953722.pl line 109, <$In> line 3.
opening in1.txt and in2.txt:
TieInput:  $_s = \'in1 A
';
$s = \'in1 A
';
  at ./953722.pl line 118, <$In> line 1.
TieInput:  $_s = \'in2 A
';
$s = \'in2 A
';
  at ./953722.pl line 120, <$In> line 1.
TieInput:  @_a = (
        'in1 B
',
        'in1 C
'
      );
@a = (
       'in1 B
',
       'in1 C
'
     );
  at ./953722.pl line 122, <$In> line 3.
TieInput:  @_a = (
        'in2 B
',
        'in2 C
'
      );
@a = (
       'in2 B
',
       'in2 C
'
     );
  at ./953722.pl line 124, <$In> line 3.