#!/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";
}

##</code><code>##

Linux                   Solaris
0:      Sort_1Test      0:      Sort_1Test
1:      Sort1_Test      1:      Sort_Test
2:      SortTest        2:      Sort1_Test
3:      Sort_Test       3:      SortTest
4:      Test_1Sort      4:      Test_1Sort
5:      Test1_Sort      5:      Test_Sort
6:      TestSort        6:      Test1_Sort
7:      Test_Sort       7:      TestSort