#!/usr/bin/perl

# https://perlmonks.org/?node_id=1224994

use strict;
use warnings;
use Data::Dumper;

my $data = {status=>"ok",'message-type'=>"member",'message-version'=>"
+1.0.0"};
my $result_hr;

unfold_hash($data, $result_hr);
print Dumper $result_hr;

sub unfold_hash {
    my ( $raw_hr ) = @_;
    for my $k ( keys %$raw_hr ) {
            $_[1]->{$k} = $raw_hr->{$k};
    }
     print "unfold_hash ", $_[1] ? scalar %{$_[1]} : 0, "\n";
}
[download]

Outputs:

unfold_hash 3
$VAR1 = {
          'message-version' => '1.0.0',
          'status' => 'ok',
          'message-type' => 'member'
        };
[download]