perl -e '@a=qw/one two three four/; print @a,$/'

 perl -e '@a=qw/one two three four/; print "@a$/"'

 perl -e '@a=qw/one two three four/; print join(" ", map { "foo=$_" } @a), $/'