Title_1,Title_2,Title_3,Title_4,Title_5,Title_6,Title_7,Title_8,Title_9,Title_10
Apr13,Gkel_gz.dat.gz,1456,1456,Check_ABC_TT1_INTL.dat,489,Gkel_gz.dat,124,422,TRUE
 '	','	','	','	',Check_AB_TT1.dat,124
May13,Gkel_gz.dat.gz,6541',6541,Check_ABC_TT1.dat,466,Check_AB_TT1_TT2.dat,07364,07364,TRUE
'	','	','	','	',Check_AB_TT1.dat,263
Jun13,Gkel_gz.dat.gz,62382,62382,Check_ABC_TT1.dat,470,Check_AB_TT1_TT2.dat,04220,04220,TRUE
'	','	','	','	',Check_AB_TT1.dat

##</code><code>##

print DETAIL "$pattern,$Orig_gz[0],$Orig_gz[1],$Orig_gz[1],$INTL[0]->[0],$INTL[0]->[1],$Orig[0],$Orig[1],$Orig[1],TRUE\n";
print DETAIL "'\t','\t','\t','\t',$INTL[1]->[0],$INTL[1]->[1]\n";
return join "\n", map { join ',', @$_ } @report;
my $body = ConvertData();