open(IN, '<', 'myfile') or die "Could not read file\n";
my @initial_array = <IN>;
close IN;

clean_array(\@initial_array); 

open(OUT, ">", "myfile.NO_DUPLICATES") or die "Could not create file\n";
print OUT @initial_array;
close OUT;