sub getCommonRefType
{
    my( $ref1, $ref2 )= @_;
    return "ARRAY"  if  isArray($ref1) && isArray($ref2);
    return "HASH"   if  isHash($ref1) && isHash($ref2);
    return "SCALAR" if  isScalar($ref1) && isScalar($ref2);
    return "";
}