my $hash_ref = {
    hack    =>    slash,
    frobozz =>    portrait,
    candle  =>    lit,
};

my @keys = keys %$hash_ref;
my $hash_copy = {};

##</code><code>##

@{ $hash_copy } { @keys } = @{ $hash_ref } { @keys };


$hash_copy->{$_} = $hash_ref->{$_} for @keys;