Select Code to Download

use strict;    # always
use warnings;  # always
...
} 0 .. $#split_TM1;

print "Union of strings: $u_set\n";

use strict;    # always
use warnings;  # always
...

my $u_set = join ',', @u_set;
print "Union of strings: $u_set\n";