Select Code to Download

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