while (my @row = $sth_report->fetchrow_array) {
   @row = map { $_ || ' ' } @row;

   # .... rest of code
}