Select Code to Download

Sample,Genotypes,Plex,rsids
AWQ,A,W30123,rs123
...
AWP,C,W30121,rs12453
AWP,G,W30121,rs124763
AWP,C,W30121,rs12343

I want them in this format Which is more readable and doesn't run for 
+too many lines.

Sample,rs123,rs121,rs1234,rs122,rs1213,rs1232,rs1222,rs1223,rs12121,rs
+12111,rs1,rs143,rs13,rs125,rs12453,rs124763,rs12343
AWQ,A,G,C,N,T,NN,NN,NN,NN,NN,NN,G,C,C,G,T,A
AWP,T,C,C,N,G,G,N,A,AG,G,C,T,G,T,C,G,C

use Getopt::Long;
  4 use Benchmark;
...
 44   }#end of @$snpsent

    }#end of @$indsent