open INFILE, "longwood.pix";
open FQDN, ">fqdn.pix" or die "Can't open der finalen filen: $!";
@final = <INFILE>;
close INFILE;
while ( ($ip, $a) = each (%hosts)) {
      foreach $line (@final) {
      's/$ip/$a/g';
       print FQDN @final;
        }
}
close INFILE;     
close FQDN;