for my $x (0..2) {
    print "$all_zwoelfer{$sorted_zwoelfer[$x]}->[1][0]\n";
}