$ perl6 -e 'for lines("a") Z lines("b"), '' xx * -> $a, $b { say "$a\t$b" }'