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

my %test = (    
                eins => ['Hallo', 'Perl', 'Community'],
                zwei => ['Hallo', 'Programmierer']
        );


map { print $_ . "\n" for(@{ $test{$_} }) } (keys %test);

print "-" x15;
print "\n";

map {   
        for(@{ $test{$_} }) {
                print $_ . "\n";
        }
} (keys %test);