1: my @sortedKeys =           
2:   map { $_->[1] }              
3:   sort { $a->[0] <=> $b->[0] } 
4:   map { [ $hash{$_}{strasse}, $_ ] }
5:   keys %hash;                      # erzeugt liste der keys