#! 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 "$_ ";
        }
    }
}