my @list = ( [0, 3, 2, 4],
             [1, 3, 1, 5],
             [2, 9, 5, 2],
           ); # zweidimensionales Array => Sortierung nach Spalte 4

my @sorted3 = sort { $a->[3] <=> $b->[3] } @list;