#!/usr/bin/perl -l
use strict;
use warnings;

my @woerter = qw/Âne Anton Ärger Berta Øre Zeppelin acht ätzend billig zwei 42/;

print join ' < ', sort { $a cmp $b } @woerter;

use locale;

print join ' < ', sort { $a cmp $b } @woerter;

_ _END_ _
42 < Anton < Berta < Zeppelin < acht < billig < zwei < Âne < Ärger < Øre < ätzend
42 < acht < Âne < Anton < Ärger < ätzend < Berta < billig < Øre < Zeppelin < zwei