open (FILE, "$file") || die "Error unable to open $file: $!\n";

##</code><code>##

my @array = <FILE>; close FILE;

##</code><code>##

open (WRITE, ">$file") || die "Error: Unable to open $file: $!\n";

foreach (@array) {
    print WRITE $_;
}

close WRITE;