See open for info on opening a file.

my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
print $fh @array;
close($fh);
[download]

That will wirte the array to the file. If you'd like to append data to the end of the file rather than over writing it:

open(my $fh, '>>', '/path/to/a/text/file.txt') || die "could not open 
+output file : $!\n";
[download]

Hope that helps

Thanks your help, that worked great... The only thing I need to do is to add a NewLine for every data. I couldn't handle with that print statement. Thanks your help again.

This will add the new lines between each element of the array.

my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
print $fh join("\n", @array);
close($fh);
[download]

See join

Update: you could also do this:

my @array = qw(some data you want to print to a file);
open(my $fh, '>', '/path/to/a/text/file.txt') || die "could not open o
+utput file : $!\n";
{
   local $, = "\n";
   print $fh @array;
}
close($fh);
[download]

See: perlvar. Sorry I had the wrong variable there originally... hence the update.

---

A truely compassionate attitude towards other does not change, even if they behave negatively or hurt you

—His Holiness, The Dalai Lama

There are modules on CPAN that will take an array of values and turn it into each of those formats. If you let us know what your goal is, we can provide suggestions.