perl -e "@m=(1,2,3); @s=(4,5,6,7,8); for (0 ..scalar(@m + @s)) {print $m[$_], $s[$_] };"