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.
	$test_hash{$_}++;
	push (@gesammelt, $_);
}
	
foreach (@gesammelt) {
	print $_, "\n";
	print $test_hash{$_}, "\n";
}

# Ausgabe
Test2
1
Test1
1