my @sorted_mails = $numorder
                           ? sort{$a->[$which] <=> $b->[$which]} @mails
                           : sort{$a->[$which] cmp $b->[$which]} @mails;

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;

my @sorted_mails;

if($numorder){
   @sorted_mails = sort{$a->[$which] <=> $b->[$which]} @mails;
}
else{
   @sorted_mails = sort{$a->[$which] cmp $b->[$which]} @mails
}