Zeile 14 versteh ich nicht.
$test_hash{$_}++;
Warum bitte willst du denn dem Wert des Hashes jedesmal 1 hinzuaddieren?

So gehts wie du es wolltest (auf der Kommandozeile ausprobiert):
U:\>perl
use strict;
use warnings;

my %test_hash =(
'Test1' => 'eins zwei drei',
'Test2' => 'vier fuenf sechs',
);

my @gesammelt;

foreach (keys %test_hash){ # Empfänger aus dem Hash (Addresses_ci.pm) lesen.
push (@gesammelt, $_);
}

foreach (@gesammelt) {
print $_, "\n";
print $test_hash{$_}, "\n";
}
^Z
Test2
vier fuenf sechs
Test1
eins zwei drei
Last edited: 2013-10-16 10:48:56 +0200 (CEST)