print OUT $data;

print "Closing $file\n";

close(OUT) || die "Unable to close OUT file: $!\n";
close(FILE) || die "Unable to close OLD file: $!\n";