add _val to column names to make them unique

diff --git a/upari.pl b/upari.pl
index 7c2cc81..0a5ba15 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -257,7 +257,11 @@ store $merge_ids, $merge_file;
 my $out_file = 'merged.csv';
 print "out_file $out_file";
 open(my $out_fh, '>', $out_file);
-print $out_fh join(',', map { @{ $data_headers[$_] } } 1 .. 4 ), "\n";
+foreach my $val ( 1 .. 4 ) {
+       print $out_fh join(',', map { $_ . '_' . $val } @{ $data_headers[$val] });
+       print $out_fh ',' if $val < 4;
+}
+print $out_fh "\n";
 
 foreach my $key ( sort keys %$data ) {
        print " $key";