use strict;
use warnings;

my @a = qw(a b c d e f g h i j k l A B C D E F G H I J K L);
my @b = qw(aaa aab aba abb Laa lab);

no locale; print "no locale : ";
print sort(@a),"\n";
use POSIX; print "POSIX     : ";
print sort(@a),"\n";
use locale;print "use locale: ";
print sort(@a),"\n";

no locale; print "no locale : ";
foreach (sort(@b)){printf "%-4s", $_;}
print "\n";
use POSIX; print "POSIX     : ";
foreach (sort(@b)){printf "%-4s", $_;}
print "\n";
use locale;print "use locale: ";
foreach (sort(@b)){printf "%-4s", $_;}

##</code><code>##

no locale : ABCDEFGHIJKLabcdefghijkl
POSIX     : ABCDEFGHIJKLabcdefghijkl
use locale: aAbBcCdDeEfFgGhHiIjJkKlL
no locale : Laa aaa aab aba abb lab 
POSIX     : Laa aaa aab aba abb lab 
use locale: aba abb lab Laa aaa aab