foreach $key (keys %$ref_zeile)
    {
print "Inner hash\n";
      if(defined $ref_zeile->{$key})
      {
        print "  $key => $ref_zeile->{$key}\n";
      }
    }