von Kristian:
my @sorted_list = map { $_->[0] }
sort { $a->[1] <=> $b->[1] ||
$a->[2] cmp $b->[2] }
map { [ $_, $_->[0], $_->[3] ] } @list;
von Kristian:
my @sorted_list = map { $_->[0] }
sort { $a->[1] <=> $b->[1] ||
$a->[2] cmp $b->[2] }
map { [ $_, $_->[0], $_->[3] ] } @list;