use POSIX qw(locale_h);
use locale;
setlocale(LC_CTYPE, "de_DE");
print join(' + ',sort {lc $a cmp lc $b} ('Vertrag','Übel','Ärger','Renée','Öl','ßig','Renee','ärgerlich'));