sub unfold_hash {
    my ( $raw_hr ) = @_;
    my %res;

    for my $k ( keys %$raw_hr ) {
        $res{$k} = $raw_hr->{$k}; 
    }

    print "unfold_hash ", %res ? scalar %res : 0, "\n";
    \%res;
}

$result_hr= unfold_hash($data);
print Dumper $result_hr;
[download]