my (%hsh, @keepers);
@hsh{@arr} = ();
while (<>) {
    push @keepers, $_ if grep {exists $hsh{$_}} split;
}