Perhaps something like map might help.

  while ( my @row = $dbQuery->fetchrow_array() ) {
      @info{@{$headings}} = map { defined ? $_ : "" } @row;
   }
[download]

-enlil