use v5.12;
#use strict;
use warnings;


my @testliste = (
                        [1,"berta"],
                        [20,"thomas"],
                        [11,"walter"],
                        [1024,"adam"]
                        );
no warnings;  # unschön ??
print "unsortiert Spalte 0\n";
for my $i (0..3){
        print "$testliste[$i][0]\n";
}
my $spalte = 0;
        @testliste = sort { $a->[$spalte] <=> $b->[$spalte] || $a->[$spalte] cmp $b->[$spalte]} @testliste;
print "\nsortiert nach Spalte 0 (numerische Werte)\n";
for my $i (0..3){
        print "$testliste[$i][0]\n";
}

print "\n\nunsortiert Spalte 1\n";
for my $i (0..3){
        print "$testliste[$i][1]\n";
}
$spalte = 1;
        @testliste = sort { $a->[$spalte] <=> $b->[$spalte] || $a->[$spalte] cmp $b->[$spalte]} @testliste;
print "\nsortiert nach Spalte 1 (String inhalt)\n";
for my $i (0..3){
        print "$testliste[$i][1]\n";
}
use warnings; # hier sinnlos weil Programmende