my @list = split //, "qwertz";
print @list;
print sort {$a ne $b} @list;