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

    my %counts;
    ++$counts{ $_ } for @$refA;

    my $intersects = 0;
    $counts{ $_ } and ++$intersects for @$refB;

    return $intersects;
}