5893	5985	+ LOC645399 645399 
7223	7231	- LOC100131533  100131533 
7630	9882	- LOC100131533  100131533 
10142	11428	+ LOC100132836  100132836 
12197	13705	- LOC100132070  100132070 
14248	15806	- LOC100132865  100132865 
16830	17405	- LOC100132865  100132865 
18735	19817	+ LOC645399  645399 
20802	23113	- LOC100132865  100132865 

##</code><code>##

My code is:-

$fn = $ARGV[0];

open(FH, "$fn") || die("Cannot open: $!");



  for ($i = 5893; $i <=23113; $i++)

        {

          $bin = $i += 7704;

           push @array, $bin ;
        }



while(<FH>)

 {



    if($_ =~ /\A(\S+)\s+(\S+)/)

    {
    foreach $line(@array){ 
         print "$line\n"; 

    print "$1 $2\n" if $line >= $1 && $line <= $2;

} 
 }

    }

##</code><code>##

12197 13705
20802 23113