@msgids = sort {
    $mailarray{$a}{'from'} cmp $mailarray{$b}{'from'}
}
    keys %mailarray;