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