#!/usr/bin/perl
open ($inp0,"<myresult") or die "not found";
open ($inp2,"<annotation") or die "not found";
open ($out,">output");
my @arr2=<$inp0>;
my @arr4=<$inp2>;
my $from = (split /../, $arr2[0])[0];
my $to   = (split /../, $arr2[-1])[1];

for my $i ($from .. $to) {
    print $out "$in" if  grep inside($i, $_), @arr2   and grep inside($i, $_), @arr4  ;

}
sub inside {
    my ($i, $range) = @_;
    my ($from, $to) = split /../, $range;
    return ($from <= $i and $i <= $to)
}