#!/usr/bin/perl

use strict;
use warnings;
use File::Spec;


if (scalar(@ARGV) != 2) {
    print "Usage: perl $0 <range.txt> <code.txt>\n";
    exit -1;
}

my @field;
my @fieldd;
my @start;
my @end;
my @numb;
my $start;
my $end;
my $numb;
my $fieldd;
my $field;
my @code;
my $code;


open(RAN, $ARGV[0]);
open(COD, $ARGV[1]);

while (<RAN>) {
	my @field=split(/\t/, $_);
	push(@eleR, $field[0]);
	push(@start, $field[1]);
	push(@end, $field[2]);
	
	while (<COD>) {
		my @fieldd=split(/\t/, $_);
		push(@eleC, $fieldd[0]);
		push(@numb, $fieldd[1]);
		push(@code, $fieldd[2]);


	foreach $eleC (@eleC) {
		if (grep (/$eleC/, @eleR)) { 
		foreach $numb (@numb) { if ((@start <= $numb) && ($numb <= @end))
		{print "$code\n"}}}}}

close(RAN);
close(COD);