my $counter = 1;

foreach my $iseg (1 .. $nseg){
	foreach my $ires ($beginning[$iseg] .. $ending[$iseg]) {
        if ($ires == $interdomainatoms[$counter]) {
            print STDOUT $interdomainatoms[$counter];				
            $counter++;
        }		
    }
}