#! perl -slw use strict; my @ids; my $tally = chr(0); while( my( $id, $start, $end ) = split ' ', ) { my $startId = vec( $tally, $start, 32 ); my $endId = vec( $tally, $end, 32 ); next if $startId and $endId and $startId == $endId; push @ids, $id; my $idn = @ids; vec( $tally, $_, 32 ) = $idn for $start .. $end; print "$id $start $end"; } __DATA__ SEQ2 99 140 SEQ2 100 150 SEQ2 101 149 SEQ2 120 130 SEQ2 120 230 SEQ1 145 244 SEQ1 200 300 SEQ1 201 299 SEQ1 225 275 SEQ1 250 399 #### C:\test>1182245.pl SEQ2 99 140 SEQ2 100 150 SEQ2 120 230 SEQ1 145 244 SEQ1 200 300 SEQ1 250 399