#!/usr/bin/perl

# create names lookup table from first file
while (<>) {
    $names{$_} = 1;
    last if eof;
}

$/ = "\n>";  # set input record separator

# scan second file
while (<>) {
    print if /^>?(\w+\n)/ && $names{$1};
}