$start $stop $id1 $id2
1	100	1	2
101	200	1	2
201	300	1	0
301	400	1	0
401	500	0	2
501	600	0	2
601	700	0	0
701	800	1	1
801	900	1	2

##</code><code>##

1	100	1	2
101	200	1	2
201	300	1	2
301	400	1	2
401	500	1	2
501	600	1	2
601	700	1	0
701	800	1	1
801	900	1	2

##</code><code>##

while(<>){
chomp;
($start, $stop, $id1, $id2)=split(/\t/,$_);





$old_id1=$id1;
$old_id2=$id2;

}