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