my %names = (
    'intrepid' => 1,
    'triumph'  => 2,
);

while (my $line = <$fh>) {
    ...
    if ($names{$name}) {
        print
          "$name\n",
          ...
    }
}