sub UnshareHash {
  my $reference = shift;
  my $deep = shift;
		
  lock $reference 
    if is_shared($reference) and not $deep;

  given (ref $reference) {
    when ('HASH') { 
      return { map UnshareHash($_, 1), %{$reference} } 
    }
    when ('ARRAY') { 
      return [ map UnshareHash($_, 1), @{$reference} ] 
    }
    when ('REF') { 
      return \UnshareHash($$reference, 1) 
    }
    default { 
      return $reference 
    }
  }		
}