use strict;
use warnings;
use Data::Dumper;

my %test = (
               eins => ['Hallo', 'Perl', 'Community'],
               zwei => ['Hallo', 'Programmierer']
       );
map { print $_ . "\n" for(@{ $test{$_} }) } (keys %test);
print Dumper(\%test);
^D
Hallo
Perl
Community
$VAR1 = {
          '' => [],
          'eins' => [
                      'Hallo',
                      'Perl',
                      'Community'
                    ],
          'zwei' => [
                      'Hallo',
                      'Programmierer'
                    ]
        };