Help for this page
#!/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