sub subby(&\@\@)
{
 my ($coderef, $listA, $listB) = @_;

 my @result;
 .. logic .. 

 @result;
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

Type of arg 3 to main::subby must be array (not grep iterator) at ./test line 36, near "@B;"

##</code><code>##

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