use locale;
use POSIX;
setlocale(LC_ALL, 'lt');

##</code><code>##

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