use Data::Dumper;

print Dumper(\$text_mail);

$msg->attach(
        ...