#!/usr/bin/perl

$ENV{LANG}   = 'en_US';
$ENV{LC_ALL} = 'en_US.ISO8859-1';

use strict;
use warnings;
use locale;

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

for ($i = 0; $i <= $#sortedList; $i++)
{
	print "$i:\t$sortedList[$i]\n";
}