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