my @list = $loesche .. keys %test;
my @save = delete @test{@list};
pop @list;
shift @save;
@test{@list} = @save;