open(OUT,">$outfile") || die "Can not open $outfile for writing ($!)\n";
 my $ctr = 0;
 for my $key (sort keys %$rDDT) {
   $ctr++;
   for my $quest (@{$$rMAP{'Order'}}) {
     my $txqu = uc($quest);
     for my $iter (@{$$rMAP{$quest}{'Iterations'}}) {
       my $txit = sprintf "%03d", $iter;
       my $qtyp = $$rMAP{$quest}{$iter}{'QType'};
       my $card = sprintf "%02d", $$rMAP{$quest}{$iter}{'QCard'};
       my $scol = $$rMAP{$quest}{$iter}{'QSCol'};
       my $ecol = $$rMAP{$quest}{$iter}{'QECol'};
       my $spos = $scol - 1;
       my $flen = $ecol - $spos;
       my $dat  = $$rDDT{$key}{$card}{'data'};
       my $mp   = $$rDDT{$key}{$card}{'multis'};
       my $rtxt = $$rDTX{$key}{$txqu}{$txit}{'ResponseText'}; # this is the line that is causing me problems
       if ($rtxt) { print "$rtxt\n"; undef $rtxt }
       my $data = ();
       $data = "$key\t".uc($quest)."_$iter\t";
       $data .= getData($dat,
                        $mp,
                        $rQDI,
                        $card,
                        $scol,
                        $spos,
                        $ecol,
                        $rtxt
                       );
        writeReport($data, $rOptions, \*OUT);
      }
    }
    progressDisp($ctr);
  }
  print "\n\t$ctr respondents profiled\n\n";
  close(OUT);
  print "leaving makeProfiles()\n\n";
}