Select Code to Download

use Data::Structure::Util qw(get_refs utf8_on);

...
    # Let the utility convert everything else.
    return utf8_on( $_[0] );
}

$ref->{ utf8_on($key) } = delete $ref->{$key}.