/home/test/asdf/jklo/foo/bar/baz
  0    1    2    4   8   16   32

#!/usr/bin/perl
use strict;
use warnings;
use Unicode::Collate;   # hier require() zu benutzen oder die Struktur anders bauen bringt keinen Vorteil, hab ich gemessen
my $alphasorter_modul   = Unicode::Collate->new();
my $alphasorter_regex   = qr{[^0-9 a-z!"§$%&/()=?\{\[\]\}\]><|_\-+*,.:;#'~\^]}ix;
my $alphasorter         = sub {
    return defined $_[0] && defined $_[1]
        ? $_[0] =~ $alphasorter_regex || $_[1] =~ $alphasorter_regex
            ? $alphasorter_modul->cmp($_[0],$_[1])
            : lc $_[0] cmp lc $_[1]
        : 0
    ;
};

my @test = ('Nüsse','Nut','Straße','Strass','stricken','Album','nehmen');
print "Perl : ".join(" ",sort {$a cmp $b} @test)."\n\n";
print "Eigen: ".join(" ",sort {$alphasorter->($a,$b)} @test)."\n\n";

#!/usr/bin/perl

use strict;
use warnings;

use List::Util qw(shuffle);
use File::Basename;

print $_->[1] . $_->[0] . $_->[2] for sort { $a->[1] cmp $b->[1] || $a->[0] cmp $b->[0] || $a->[2] cmp $b->[2] } map { [ fileparse($_, qr/\.[^.]*/) ] } shuffle (<DATA>);

__DATA__
/
/abc/
/abc/tes.pl
/abc/test_5
/abc/test_42
/abc/test_foo.txt
/abc/test_foo-2.txt
/abc/test_foo01.txt
/abc/test_foo_1.txt
/abc/test/
/abc/test/z.php4
/abc/test/z.txt
/abc-test/abc
/asdf/
/asdf/123/
/asdf/A/
/asdf/B/
/asdf/B/C/
/asdf/B/C/a.file
/home/
/home/test/
/home/test/asdf/
/home/test/asdf/jklo/
/home/test/asdf/jklo/rstuv2/
/home/test/asdf/jklo/rstuvw11/
/root/config
/root/tmp/