my @list = $loeschen .. keys %test;
(undef, @test{ @list[0 .. $#list-1] }) = delete @test{@list};