#!/usr/bin/perl

use strict;
use warnings;

my @toSort = ('SortTest', 
              'TestSort',
              'Sort_Test',
              'Test_Sort',
              'Test1_Sort',
              'Sort1_Test',
              'Sort_1Test',
              'Test_1Sort');

my @sortedList = map {$_->[0]}
				 sort {$a->[1] cmp $b->[1]}
				 map { my $c= $_; $c =~ s/_//g; [$_, $c] } @toSort;

print join "\n", @sortedList;