Try something like this... 
#!/usr/bin/perl

use strict;

my $data_1 = <<EOF;
ID Catg_ID Pos
12 A 16
15 B 5
16 A 175
EOF

my %record;
open( my $file_1, "<", \$data_1 )
  or die "Cannot open data_1\n";

while (<$file_1>) {
    next if ( /^ID/ );
    s/(\d+)\s//;
    $record{$1} = [ split ];
}

while (<DATA>) {
    next if ( /^Catg/ );
    my @cols = split;
    for my $i ( keys %record ) {
        print "$i $cols[0] $record{$i}->[1] $cols[3]\n"
          if (( $record{$i}->[0] eq $cols[0] )
          && ( $record{$i}->[1] > $cols[1] )
          && ( $record{$i}->[1] < $cols[2] ))
    }
}
__DATA__
Catg_Name Start Stop Name
A 8 19 jamm
A 110 112 bbc
E 170 256 vadd
A 14 18 cip

[download]

In reply to Re: Comparing multiple entries from two files by bichonfrise74
in thread Comparing multiple entries from two files by hanger4

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.