perl -e 'open FHA,"<a"; open FHB,"<b"; while(1){$x=<FHA>;$y=<FHB>; $x||last;$y||last ; print $x, $y }'