my @sorted_ids = sort {$mailarray{$a}{"from"} cmp $mailarray{$b}{"from"}} keys %mailarray;