my $outfile = "userfile.txt"; # or whatever
....
unless (open (OUTFILE, ">$outfile")) { # open file for writing
  die "Error: couldn't write to file $outfile: $!";
} # unless
else {

  foreach my $element (@DATA) {
    print (OUTFILE "$element\n");
  } # foreach
  # or: print (OUTFILE "$_\n") foreach @DATA;
  # or: print (OUTFILE map { "$_\n" } @DATA);

  close (OUTFILE); 
} # else

##</code><code>##

open (OUTFILE, ">$outfile") or
  die "Error: couldn't write to file $outfile: $!";

print (OUTFILE "$_\n") foreach @DATA;

close (OUTFILE);