#!/usr/bin/perl

@conditions = ("S", "E2h", "E6h", "E24h");
@reps = (1,2,3);

foreach $cnd (@conditions) { foreach $rep (@reps) { $id = "$cnd-$rep";
  print "track type=bigWig name=\"$id plus\" db=mm10 visibility=full alwaysZero=on maxHeightPixels=40 color=204,0,204 bigDataUrl=http://snpinfo.niehs.nih.gov/ucscview/korach/sylvia/RNAseq_jun2016/$id.str2.norm.bigWig\n";
  print "track type=bigWig name=\"$id minus\" db=mm10 visibility=full alwaysZero=on maxHeightPixels=40 color=0,0,204 bigDataUrl=http://snpinfo.niehs.nih.gov/ucscview/korach/sylvia/RNAseq_jun2016/$id.str1.norm.bigWig\n";
} }