$ perl -e '@words = ("one\n","two\n","three\n","four\n","five\n","six\n",); chomp @words; print join";", @words;'
one;two;three;four;five;six

##</code><code>##

$ perl -e '@words = ("one\n","two\n","three\n","four\n","five\n","six\n",); @words = map {split /\n/, $_ } @words; print join";", @words;'
one;two;three;four;five;six

##</code><code>##

$ perl -e '@words = ("one\n","two\n","three\n","four\n","five\n","six\n",); @words = map {s/\n//; $_} @words; print join";", @words;'
one;two;three;four;five;six

##</code><code>##

$ perl -e '@words = ("one\n","two\n","three\n","four\n","five\n","six\n",); $_ = (split /\n/)[0] for @words; print join";", @words;'
one;two;three;four;five;six

##</code><code>##

$ perl -E '@words = ("one\n","two\n","three\n","four\n","five\n","six\n",); local $" = ";"; $_ = (split /\n/)[0] for @words; say "@words";'
one;two;three;four;five;six