use warnings;
use strict 'refs';
my(%test) = ('eins', ['Hallo', 'Perl', 'Community'], 'zwei', ['Hallo', 'Programmierer']);
map {foreach $_ (@{$test{$_};}) {
    print $_ . "\n";
}} keys %test;
print '-' x 15;
print "\n";
map {foreach $_ (@{$test{$_};}) {
    print $_ . "\n";
}} keys %test;
array_hash.pl syntax OK