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

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