{
    my @keys = keys %$hash_ref;
    sub hrkeys () { @keys }
}