Hello natxo,

Corion’s solution is preferable, but this does what you want:

#! perl
use strict;
use warnings;

my $HoA =
{
    vowels => [ 'a', 'e', 'i', 'o', 'u', ],
    primes => [  2,   3,   5,   7,  11,  ],
};

{
    no warnings 'experimental';

    while (my ($key, $value) = each $HoA)
    {
        print $key . " ";

        for (@$value)
        {
            print "$_ ";
        }
    }
}
[download]

Output:

22:59 > perl 1386_SoPW.pl
vowels a e i o u primes 2 3 5 7 11
22:59 >
[download]

Hope that helps,