Whats the easiest/quickest/most elegant way of printing out a @list one per line?

I believe there's already a lot of places where this question has been answered. Anyhow, excuse me if I repeat many other wise monks, but there are essentially two most common ways of accomplishing this:

@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);
[download]

_____________________

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}
[download]