#!/usr/bin/perl -w 

@all = qw(1A_50_3end_neg.bedgraph
1A_50_3end_pos.bedgraph
1B_51_3end_neg.bedgraph
1B_51_3end_pos.bedgraph
1C_52_3end_neg.bedgraph
1C_52_3end_pos.bedgraph
1D_53_3end_neg.bedgraph
1D_53_3end_pos.bedgraph
);


for($i=0;$i<8;$i++){
$a = $all[$i];
$aa = $a;
$aa =~ s/\.bedgraph//;
$track = "track type=bedGraph name=$aa\n";
open(OF,">track.txt");
print OF $track ; 
close(OF);
system ("cat track.txt $a > tmp.bedgraph");
system("mv tmp.bedgraph $a");
}