or download this
my @row1 = ('Jun-2013',$Gkel_gz[0],$Gkel_gz[1],$TT1[0]->[0],$TT1[0]->[
+1],$Gkel[0],$Gkel[1]);
my @row2 = ($TT1[1]->[0],$TT1[1]->[1]);
print DETAIL "Jun-2013,$Gkel_gz[0],$Gkel_gz[1],$Gkel_gz[1],$TT1[0]->[0
+],$TT1[0]->[1],$Gkel[0],$Gkel[1],$Gkel[1],TRUE\n";
print DETAIL "'\t','\t','\t','\t',$TT1[1]->[0],$TT1[1]->[1]\n";