use strict;
use warnings;
my $gamesave = "gamesave.txt";
my @secrettext_new;
open(LOG, ">$gamesave") or die "Error: $!";
print LOG join("  ", @secrettext_new);
close(LOG) or die "Error: $!"

##</code><code>##

This is perl, v5.8.8 built for sun4-solaris-thread-multi