use strict;
use warnings;

use locale;
use POSIX;
my $loc = setlocale(LC_ALL, 'lt');

if (defined $loc) {
    print "loc is defined\n";
    print "loc value: *$loc*\n";
}
else {
    print "loc is undefined\n";
}

my @sorttest = qw(ia ib ic ya yb yc);
for (sort @sorttest) {
    print "$_\n";
}