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

my %test = (
	foo => 'bar',
	foo1 => 'bar1',
	foo2 => 'bar2',
);

foreach my $temp (keys %test) {
	print "Bearbeite '$temp'\n";
	delete $test{foo1};
}