my @liste = ( 41, 37, 10, 30, 127, 512, 111 );
print "@liste\n\n";

my @sort_1 = sort @liste;                                       print "1) @sort_1  (Standard)\n";
my @sort_2 = sort { $a cmp $b } @liste;                         print "2) @sort_2  (ASCII - aufsteigend)\n";
my @sort_3 = sort { $a <=> $b } @liste;                         print "3) @sort_3  (numerisch - aufsteigend)\n";
my @sort_4 = sort { $b <=> $a } @liste;                         print "4) @sort_4  (numerisch - absteigend)\n";