Select Code to Download

foreach my $unique (@second_list_new)
{
...
        print "newly in this $unique\n\n";
    }
}

    if (grep (/^\Q$unique\E$/,@first_list_new))

     my @first_list_new = map { s/\s*$//m; lc $_ } <FIRST_LIST>;