Help for this page

Select Code to Download

Select or download this

sub Intersection {
    my( $refA, $refB ) = @_;
...

    return $intersects;
}