$ perl -e 'BEGIN{@words = ("one\n","two\n","three\n","four\n","five\n","six\n",)} $a=0;printf("%s;%s;%s;%s;%s;%s\n",(split/\n/,@words[$a]),(split/\n/,@words[$a+1]),(split/\n/,@words[$a+2]),(split/\n/,@words[$a+3]),(split/\n/,@words[$a+4]),(split/\n/,@words[$a+5])       );'

one;two;three;four;five;six

$ perl -e 'BEGIN{@words = ("one\n","two\n","three\n","\n","five\n","six\n",)} $a=0;printf("%s;%s;%s;%s;%s;%s\n",(split/\n/,@words[$a]),(split/\n/,@words[$a+1]),(split/\n/,@words[$a+2]),(split/\n/,@words[$a+3]),(split/\n/,@words[$a+4]),(split/\n/,@words[$a+5])       );'  

one;two;three;five;six;

perl -e 'BEGIN{@words = ("one\n","two\n","three\n"," \n","five\n","six\n",)} $a=0;printf("%s;%s;%s;%s;%s;%s\n",(split/\n/,@words[$a]),(split/\n/,@words[$a+1]),(split/\n/,@words[$a+2]),(split/\n/,@words[$a+3]),(split/\n/,@words[$a+4]),(split/\n/,@words[$a+5])       );'

one;two;three; ;five;six