my( $ref )= @_;
$ref= $$ref   while  UNIVERSAL::isa($ref,"REF");
return @$ref   if  UNIVERSAL::isa($ref,"ARRAY");
return %$ref   if  UNIVERSAL::isa($ref,"HASH");
return $$ref   if  UNIVERSAL::isa($ref,"SCALAR");
return &$ref() if  UNIVERSAL::isa($ref,"CODE");
return $$ref,@$ref,%$ref   if  UNIVERSAL::isa($ref,"GLOB");