use strict;
use warnings;

open(my $fh1, "<","positions.txt") or die("could not open file $!\n");
my @positions;	#hold the positions to be compared
while(my $line=<$fh1>){
	chomp $line;
	push @positions,$line;
	}

open(my $fh2, "<","coords_orientation.txt") or die("could not open file $!\n");
while(my $line=<$fh2>){
	chomp $line;
	my @record=split(" ",$line); #split the coords_orientation.txt on white space 
	foreach my $pos (@positions){
		if($pos > $record[0] && $pos <$record[1]){
			print "$pos @record\n";		
			}
		}
	}