I might suggest that $rtf->prolog(...); be moved outside that loop its now in

Maybe as if (scalar(@warning_array)) { $rtf->prolog(...);}