sub copy_hash {
    my $hr = shift // return {};
    my $copy;
    @$copy{keys %$hr} = value %$hr;
    $copy;
}

##</code><code>##

sub copy_hash {{%{$_[0]//{}}}}

##</code><code>##

my %copy = %+;