Do you mean something like this ?

perl -e "my (@a,@b,$x); @a=0..5;@b=20..25; for $x(\@a,\@b){print qq|@$
+x;\n|}"
[download]

Prints:
0 1 2 3 4 5;
20 21 22 23 24 25;