in reply to printing lists...

my @elements = qw(The quick brown fox); local $, = ','; print @elements;
Gives:
The,quick,brown,fox
Or you could use $" with interpolation.