my @subset = subby { .. logic .. } @A, (grep { .. logic .. } @B);