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;

} 
 }

    }