#!/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
);


@four = qw(1A_50
1B_51
1C_52
1D_53
);



for($i=0;$i<4;$i++){
$pre = $four[$i];

$a = $pre . "_3end_pos.bedgraph";
$b = $pre . "_3end_neg.bedgraph";
system("mv $a tmpa");
system("mv $b tmpb");


system("mv tmpa $b");
system("mv tmpb $a");
}