my @list = qw(value1 value2);
unless (open (FILE, $filename)){
  die("Error in opening $filename: $!\n");
} # if

else {
  while (<FILE>){
    chomp($_);
    # split up to maximal "two columns" by whitespaces
    my ($str, $val) = split(/\s+/, $_, 2);

    # search @list for $val
    if ( grep { $val eq $_ } @list ){
      print "$val found\n";
    }
  } # while
  close (FILE);
} # else

##</code><code>##

  ...
  while (<FILE>){
    chomp($_);
    # split up to maximal "two columns" by whitespaces
    my ($val) = ( split(/\s+/, $_, 2) )[1];

    # search @list for $val
    if ( grep { $val eq $_ } @list ){
      print "$val found\n";
    }
  } # while

} # else