If you are going to revisit a previous question then you should, at least, include a link to the earlier discussion so that we can see what advice has already been offered and ignored.

Update: I've now taken a closer look at your code and I can't see the problem that you are having. The code below is based on your code above and has been expanded to create a standalone program. It seems to work as expected and print out the whole line. I therefore suspect that your problem is in the bits of your code that you aren't showing us.

#!/usr/bin/perl

use strict;
use warnings;

my @all = qw(7723 7725 9908 7765 7874);

while (<DATA>) {
  for my $x (0..$#all) {
    if($_ =~ /$all[$x]/) {
      print $_;
    }
  }
}

__DATA__
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]

And the output I get is:

77875    7725    CA84985    54E
77822    9908    CA84985    54E
77822    7874    CA84985    54E
[download]

There is, of course, a potential bug in this code as it checks for the existance of your numbers anywhere in a line of input and you specifically want to check for it in the second column. You can therefore change the central loop of my code to look lie this (and note that I've also been able to change the match operator to an equality operator).

while (<DATA>) {
  my $code = (split)[1];
  for my $x (0..$#all) {
    if($code eq $all[$x]) {
      print $_;
    }
  }
}
[download]

Finally, there's no point in checking for more than one match, so it's worth exiting the inner loop once a match is found.

while (<DATA>) {
  my $code = (split)[1];
  for my $x (0..$#all) {
    if($code eq $all[$x]) {
      print $_;
      last;
    }
  }
}
[download]