sub isTargetInAll
{
    my ($raAll, $raTarget) = @_;
    return
       @$raTarget
       ==
       grep
       {
           exists { map { $_ => 1 } @$raAll }->{$_}
       }
       @$raTarget;
}