open FIRST, "first.csv";
while (my $line = <FIRST>) {
    open SECOND, "second.csv";
    while (my $otherline = <SECOND>) {
        if ( $line eq $otherline ) {
            print "Found a match!\n":
        }
    }
    close SECOND;
}
close FIRST;