Select Code to Download

use strict;
use warnings;
...
    }
     print "unfold_hash ", $res_hr ? scalar %$res_hr : 0, "\n";
}

my $result_hr={};
unfold_hash($data, $result_hr);
print Dumper $result_hr;