Help for this page

Select Code to Download

Select or download this

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

Select or download this

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