您是否尝试过可存储的 dclone要复制吗?可能是这样的:

Have you tried Storable's dclone to copy it? It would probably be something like this:

use Storable qw(dclone);
my %hash_copy = %{ dclone( \%hash ) };