Well, I'm not sure if I'm gonna sound obvious, but here it goes...

To me the simplest solution is to do this:

open (FOO, ">>foo.txt");
foreach $element(@element)
{
    print FOO "$element\n";
}
close (FOO);
[download]

I'm not sure about performance issues on implementing this solution, but I'm sure that the others can clarify this.

And, of course, it won't hurt you to test it :-)

Hope it helps you.

Best regards,

Er Galvão Abbott
a.k.a. Lobo, DaWolf
Webdeveloper