Select Code to Download

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

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

my %copy = %+;