Try running the following sample code and see if it is close to what you want to achieve.

#!/usr/bin/perl
use strict;
use warnings;

my $file1 = <<FILE1;
GRB2
AFF4
GGGB
C7orf42
FILE1
my $file2 = <<FILE2;
KEGG_PATHWAY    hsa04722:Neurotrophin signaling pathway    33    0.147
+86271171251902    4,04E+09    GRB2, CAMK2G, NFKB1, MAPKAPK2, MAGED1, 
+KRAS, MAP3K3, MAP3K1, BCL2, RAC1, GAB1, RHOA, CAMK2D, SH2B3, NGFRAP1,
+ SHC1, MAP2K7, FRS2, PIK3R1, IRS2, RELA, YWHAB, YWHAE, TP73, NRAS, MA
+PK1, CRKL, JUN, NTRK2, CALM3, MAPK9, SORT1, RAP1A    575    124    50
+85    2.353.506.311.360.440    6,83E+11    6,83E+11    0.004929324234
+03758
KEGG_PATHWAY    hsa05200:Pathways in cancer    63    0.2822833587239  
+  1,86E+10    FGF18, FGF5, PPARD, FGF9, NFKB1, FGF13, PTEN, CCNE2, AC
+VR1B, MAX, CDKN2B, RHOA, RALB, RALA, FAS, TPR, CHUK, RELA, RXRA, LEF1
+, CDK6, RB1, STK4, DAPK1, JUP, MAPK1, CCDC6, CRKL, HIF1A, NCOA4, JUN,
+ VEGFA, MAPK9, TRAF1, WNT5A, APC2, XIAP, GRB2, IGF1R, KRAS, ITGAV, BC
+L2, RAC1, RUNX1, PIK3R1, APC, CEBPA, COL4A4, FZD8, COL4A1, IL8, VHL, 
+CREBBP, TGFBR2, SMAD2, FZD5, STAT3, NRAS, RASSF5, CDKN1B, ITGA6, RASS
+F1, JAK1    575    328    5085    16.985.949.098.621.400    0.0031423
+34832759053    0.0010485440045103767    0.02269450903600312
KEGG_PATHWAY    hsa04310:Wnt signaling pathway    35    0.156824088179
+94445    4,76E+10    WNT5A, PPARD, APC2, PPP2R5A, CAMK2G, PPP2R5C, PP
+P3R1, RAC1, NFAT5, PPP3CB, RHOA, CAMK2D, FRAT2, PRKACA, CHP, PLCB1, F
+BXW11, APC, FZD8, VANGL1, NLK, VANGL2, CREBBP, LEF1, SMAD2, FZD5, SEN
+P2, SFRP5, SFRP1, CCND2, CSNK1E, JUN, MAPK9, SIAH1, PPP2R5E    575   
+ 151    5085    20.498.128.419.234.000    0.008008272140318184    0.0
+02008108692225119    0.05796850410908494
FILE2

open my $in1, '<', \$file1;

my @keyWords;

while (defined (my $line = <$in1>)) {
    chomp $line;
    push @keyWords, $line;
}
close $in1;

die "No keywords specified\n" if ! @keyWords;

my $match = "\\b\Q" . join ("\E\\b|\b\Q", @keyWords) . "\E\\b";

open my $in2, '<', \$file2;

while (defined (my $line = <$in2>)) {
    next if $line !~ /($match)/;

    print "Matched $1 in line $.\n";
}

[download]

Prints:

Matched GRB2 in line 1
Matched GRB2 in line 2

[download]

Some stuff to notice:

  1. Use inline data for sample or test code so you don't have to deal with external files.
  2. Use three parameter open and lexical file handles.
  3. Don't slurp files into an array then loop over the array.
  4. Avoid nested loops.
  5. Keep variable declarations local to where they are used.
  6. Always use strictures (use strict; use warnings;).
  7. Use meaningful variable names
  8. Remove unused code and variables ($i was not used and was redundant in any case).
True laziness is hard work

In reply to Re: probably stupid mistake by GrandFather
in thread probably stupid mistake by gogoglou

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.