#!/usr/bin/perl -w

use Data::Dumper;

%ordner = (
  data =>  {
    bla1 => {
      ha1 => {
        hi1 => {
          he1 => 0,
        },
      },
    },
  },
);

print Dumper(%ordner);