...
  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