#! perl
use strict;
use warnings;

my @list   = qw( Wilma Betty );
my %lookup = map { $_ => undef } @list;

while (my $line = <DATA>)
{
    my @fields = split /\s+/, $line;

    next unless defined $fields[1];

    print $line if exists $lookup{$fields[1]};
}

__DATA__
Fred    Wilma   Pebbles     Dino
Barney  Betty   Bamm-Bamm
Homer   Marge   Bart        Lisa    Maggie
George