Perl中哈希结构的深度拷贝

下午修改一段Perl代码的时候，遇到了一个深度拷贝的问题。废话少说，上代码：

    my ($rc, $refdata) = db_query($sql_text, "hashref");
    unless ($rc) {
        return ($rc, $refdata);
    }

    my @arrayhash = ();
    foreach my $ref (@$refdata) {
        # 这里$ref->{host_ip}的值为"10.136.142.205,127.0.0.1"
        if (defined($ref->{"is_logserver_log"}) 
                && $ref->{"is_logserver_log"} eq "y" 
                && defined($ref->{"host_ip"})) 
        {
            foreach my $host (split(/,/, $ref->{"host_ip"})) {
                $ref->{"host_ip"} = $host;
                if ($ref->{"host_ip"} eq "127.0.0.1") {
                    write_log("1  " . Dumper($ref) . "\n") 
                }
                push @arrayhash, $ref;
            }
        }
        else {