#!/usr/bin/perl -w
use locale;
my @all = qw(й ц у к е н г ш щ з х ъ э ж д л о р п а в ы ф я ч с м и т ь б ю );
#print join("\n", sort {$a cmp $b} @all),"\n";
print join(" ", sort {$a cmp $b} @all),"\n";