--- a
+++ b/modules/RawDB/scripts/transposeCSV.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+   my @rows = ();
+   my @transposed = ();
+
+   open F1,"data.csv";
+   while(<F1>) {
+       chomp;
+       push @rows, [split  /,/ ];
+  }
+  #print @rows;
+
+  for my $row (@rows) {
+  for my $column (0 .. $#{$row}) {
+      push(@{$transposed[$column]}, $row->[$column]);
+    }
+  }
+
+  for my $new_row (@transposed) {
+    for my $new_col (@{$new_row}) {
+        print $new_col, ",";
+    }
+    print "\n";
+  }