print() on closed filehandle DATA_1 at compare_names.pl line 33, <SECOND> line 773874

##</code><code>##

#! usr/bin/perl -w

use strict;
use warnings;

print "What is the filepath of Jay's file?\n";
my $first_file = <STDIN>;
print "And the mine?\n";
my $second_file = <STDIN>;

open FIRST, $first_file;
open SECOND, $second_file;
open DATA_1, "</home/Alan/Desktop/sequence_data/sequence_comparison/Jays_unique.txt";
#open DATA_2, "/home/Alan/Desktop/sequence_data/sequence_comparison/my_unique_results.txt";

while(<FIRST>){

        my $name_1 = $_;

        my $match = 0;

        while(<SECOND>){

                my $name_2 = $_;

                if($name_1 eq $name_2){
                        $match = 1;
                        last;
                }
        }

        if($match != 1){
                print DATA_1 $name_1,"\n";
        }
}

close FIRST;
close SECOND;
close DATA_1;