#!/usr/bin/env perl

use strict;
use warnings;

my $out_file = q{result.list};
my $search_re = qr{hello};
my %entry_seen = ();

print q{Enter reference filename: };
chomp(my $ref_file = <STDIN>);

open my $fh_ref, q{<}, $ref_file or die qq{Can't open $ref_file: $!};
open my $fh_out, q{>}, $out_file or die qq{Can't open $out_file: $!};

while (defined(my $txt_file = <$fh_ref>)) {
    chomp $txt_file;
    open my $fh_txt, q{<}, $txt_file or do {
        warn qq{! SKIPPING: $txt_file: $!};
        next;
    };  

    print qq{PROCESSING: $txt_file\n};

    while (defined(my $txt_line = <$fh_txt>)) {
        chomp $txt_line;

        next if $txt_line !~ $search_re;

        if (! $entry_seen{$txt_line}++) {
            print $fh_out qq{[$txt_file] $txt_line\n};
        }
    }

    close $fh_txt;
}

close $fh_out;
close $fh_ref;