Select Code to Download

my @name_array = qw(fred joe john frank );
for my $file(@file) {
...
        print OUT $line if ( $match );
    }
}

my %unique;
if ( $have_a_line_to_print ) {
...
for( sort keys %unique ) {
    print;
}