I found if I use push(@donarray,$don); and created an array it worked as I wanted.
Thank You.
I bow to you noble foe...
Looks more like this now.

my ($TID,$SYS,$SSYS,$OWNER,$RESOLUTION,$DES,$DT,$TM,$TYPE,$REMTYPE,$CH
+ANGESTATUS,$CURDATE) = (@$row);

my $don = "PROJECT: $SYS SEVERITY: $REMTYPE
TODAYS DATE: $CURDATE
TECH: $OWNER
DATE: $DT TIME: $TM
STATUS: $TRSTAT  SERVER: $SSYS

SUMMARY:
$DES

RESOLUTION:
$RESOLUTION


--------------------------------------------------------";
push(@donarray,$don);
}
        %mail = ( To      => "$REPORTADDRESS",
                From    => 'StatusReport@healthsouth.com',
                SUBJECT => "Last Weeks Status Report",
                Message => "@donarray"
           );
[download]