Select Code to Download

#!/usr/bin/perl

...
                 map { my $c= $_; $c =~ s/_//g; [$_, $c] } @toSort;

print join "\n", @sortedList;

$ perl  sort_files.pl
Sort1_Test
...
Test_1Sort
TestSort
Test_Sort