my $uniccol = Unicode::Collate->new();
my @s = sort { $uniccol->cmp($a,$b) } ('Vertrag','Übel','Ärger','Öl','ßig','ärgerlich');
print join(' + ',@s);