my $contents;
foreach my $address (keys %$error_hash) {
    $contents .= "$address\t\t$error_hash->{$address}\n";
}
# ...
print $mailer $contents;