my @list = ( [0, 3, 2, 4],
             [1, 3, 1, 5],
             [2, 9, 5, 2],
           ); # zweidimensionales Array => Sortierung nach Spalte 4
           
1: my $sortedList =             # von unten nach oben lesen
2: map { $_->[1] }              # werfe 0. Spalte weg und gebe Originalliste zurueck
3: sort { $a->[0] <=> $b->[0] } # sortiere neue Listenreferenz nach 0. Spalte
4: map { [ $_->[3], $_ } }      # mache 2dim-Listenreferenz daraus: [ $_[3], [...] ]
5: @list;                       # nehme Liste