Hey, how about this:

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

Prints out: 14253678

Celebrate Intellectual Diversity