You can set up a regular expression that will match any of the elements of @all then read each line and split, passing the original line and each column out of a map to grep the second columns that match, finally maping out the original line and printing it.

use strict;
use warnings;

my @wanted = qw{7723 7725 9908 7765 7874};
my $rxExtract;
{
    local $" = q{|};
    $rxExtract = qr{\b@wanted\b};
}

print
   map  { $_->[0] }
   grep { $_->[2] =~ $rxExtract }
   map  { [ $_, split ] }
   <DATA>;

__END__
77876    8543    CA84985    54E
77873    8003    CA84985    54E
77875    7725    CA84985    54E
77872    8511    CA84985    54E
77873    8123    CA84985    54E
77822    9908    CA84985    54E
77819    8503    CA84985    54E
77826    8040    CA84985    54E
77822    7874    CA84985    54E
77884    8543    CA84985    54E
77809    7211    CA84985    54E

[download]

The output is

77875    7725    CA84985    54E
77822    9908    CA84985    54E
77822    7874    CA84985    54E

[download]

I hope this is of use.

Cheers,

JohnGG

In reply to Re: Help in using arrays by johngg
in thread Help in using arrays by rsriram

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.