Some code may help...

open (FINALDNS, "final.txt");
#my @file3 = <FINALDNS>;
my $file3 = do {local $/; FINALDNS};
close FINALDNS;