@a=qw(a b c d);

# Method 1
# simply set the $, (output field separator) variable
# to '\n' (new line character), and print your array
# as normal.  The print() method will then also print
# an additional '\n' after each array element.
{ 
local $,="\n";
print @a;
}

print"\n----\n";

#
# Here's a more straightforward way of doing this
# with the join() method.
#
print join("\n", @a);