my @li = qw(eins zwei drei);
local $, = "\n"; # The output field separator for the print operator.
print @li;