#!/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];
}