my @sortedKeys = $numorder ? map { $_->[1] } sort { $a->[0] <=> $b->[0] } map { [ $hash{$_}{strasse}, $_ ] } keys %hash : map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [ $hash{$_}{strasse}, $_ ] } keys %hash;