DB<6> print Dumper \%test
$VAR1 = {
          'ebene1' => {
                        'test1' => 'test 1, 2. Ebene',
                        'test2' => 'test 2, 2. Ebene'
                      },
          'ebene1_anders' => 'test_erste_ebene'
        };

  DB<7> my $tmp = delete $test{ebene1};

  DB<8> %test2 = %$tmp;

  DB<9> print Dumper \%test
$VAR1 = {
          'ebene1_anders' => 'test_erste_ebene'
        };

  DB<10> print Dumper \%test2
$VAR1 = {};