#!/usr/bin/perl
use strict;
use warnings;

my %test = (
    foo => 'bar',
    foo1 => 'bar1',
    foo2 => 'bar2',
);
my @keys = keys %test;
foreach my $temp (@keys) {
    print "Bearbeite '$temp'\n";
    delete $keys[2];
}