$ perl  sort_files.pl
Sort1_Test
Sort_1Test
SortTest
Sort_Test
Test1_Sort
Test_1Sort
TestSort
Test_Sort