use strict;
use warnings;

my %primaryFeatures = (
    foo => [qw{fool food foot}],
    bar => [qw{barricade}],
);

for my $key (keys %primaryFeatures) {
    for my $element (@{$primaryFeatures{$key}}) {
        print "($key, $element)\n";
    }
}