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