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