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

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

close WRITE;