or download this
# A simple scenario printing a named array:
$ perl -e 'my @x = qw{a bcd ef}; print "@x\n"'
...
# Oops! Bogus comma at the end. Better split the print list.
$ perl -e '{ local $, = ","; print f(); print "\n"; } sub f { qw{a bcd
+ ef} }'
a,bcd,ef