Что лучший способ состоит в том, чтобы глубоко скопировать хеш хешей в Perl? [дубликат]

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
    version="1.0" xmlns:mn="http://vsystems.com/WS/StockAdjustments">
    <xsl:strip-space elements="*"/>
    <xsl:output indent="yes" />
    <xsl:template match="mn:StockAdjustments">
      <xsl:copy>
          <xsl:apply-templates/>
      </xsl:copy>
    </xsl:template>

    <xsl:template match="mn:StockAdjustment[@Status = ''][1]">
        <xsl:copy> 
            <xsl:if test="@Article">
                <xsl:attribute name="Article">
                    <xsl:value-of select="@Article"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Client">
                <xsl:attribute name="Client">
                    <xsl:value-of select="@Client"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Status">
                <xsl:attribute name="Status">
                    <xsl:value-of select="@Status"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Unit">
                <xsl:attribute name="Unit">
                    <xsl:value-of select="@Unit"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Status = ''">
                <xsl:attribute name="Quantity">
                    <xsl:value-of select="sum(//mn:StockAdjustment[@Status = '']/@Quantity)"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@ReasonCode">
                <xsl:attribute name="ReasonCode">
                    <xsl:value-of select="@ReasonCode"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Batch">
                <xsl:attribute name="Batch">
                    <xsl:value-of select="@Batch"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@HostLocation">
                <xsl:attribute name="HostLocation">
                    <xsl:value-of select="@HostLocation"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:apply-templates/>
        </xsl:copy>
    </xsl:template>
    <xsl:template match="mn:StockAdjustment[@Status = 'QUARANTAINE'][1]">
        <xsl:copy>
            <xsl:if test="@Article">
                <xsl:attribute name="Article">
                    <xsl:value-of select="@Article"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Client">
                <xsl:attribute name="Client">
                    <xsl:value-of select="@Client"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Status">
                <xsl:attribute name="Status">
                    <xsl:value-of select="@Status"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Unit">
                <xsl:attribute name="Unit">
                    <xsl:value-of select="@Unit"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Status = 'QUARANTAINE'">
                <xsl:attribute name="Quantity">
                    <xsl:value-of select="sum(//mn:StockAdjustment[@Status = 'QUARANTAINE']/@Quantity)"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@ReasonCode">
                <xsl:attribute name="ReasonCode">
                    <xsl:value-of select="@ReasonCode"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@Batch">
                <xsl:attribute name="Batch">
                    <xsl:value-of select="@Batch"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:if test="@HostLocation">
                <xsl:attribute name="HostLocation">
                    <xsl:value-of select="@HostLocation"/>
                </xsl:attribute>
            </xsl:if>
            <xsl:apply-templates/>
        </xsl:copy>
    </xsl:template>

</xsl:stylesheet> 
please check if it is suitable for you.