use strict;

my $user_status_output = "C:/temp/user_status.$user.out";
my @output = (
    "Hello world",
    "This is a test",
    "And some more text to go into the output file"
);

open my $out, ">", $user_status_output
    die "Failed to create output file '$user_status_output': $!";

for my $line (@output) {
    print $out "$line\n";
};
close $out;
print "Wrote output to '$user_status_output'\n";
<c>