Would it then be possible to incorporate this as well? It might be better if I kept the code all strung out and just tidied up the formating :<

      my @row_A_count_A_Ref_vs_Comp;
      my @fields_A_count_A_Ref_vs_Comp;
      my @record_A_count_A_Ref_vs_Comp;
      

      print BILATERAL_COMPARISONS_A   "$sql_count_A_Ref_vs_Comp";


      while(my @row_A_count_A_Ref_vs_Comp = $sth_Count_Ref_vs_Comp->fe
+tchrow_array()) { 
          
               
          
          print BILATERAL_COMPARISONS_A   "\t\t\t\t";
                    
          print BILATERAL_COMPARISONS_A  "$entry_no_new_MINUS_ONE\t"; 
+    
          
          local $\ = "\n"; 
          local $, = "\t"; 
          
          print BILATERAL_COMPARISONS_A @row_A_count_A_Ref_vs_Comp;   
+  
          
          my @record_A_count_A_Ref_vs_Comp = @row_A_count_A_Ref_vs_Com
+p;          
          push(my @fields_A_count_A_Ref_vs_Comp, @record_A_count_A_Ref
+_vs_Comp);  
          
      }
      $sth_Count_Ref_vs_Comp->finish();
[download]