use v6;
my @male   = qw/boy boymonkey boydog/;
my @female = qw/girl girlmonkey girldog/;

for @male Z @female -> $m, $f {
    say "$m marries $f";
}