foreach $key (sort(keys %in)) {
    print MAIL "\t", $key, " = \t", $in{$key}, "\n"
            if $in{$key}{rank} == 0;
}