my $primaryFeatures = {
    'foo', ('fool', 'food', 'foot'),
    'bar', ('barricade'),
};

while (my ($key, $value) = each(%$primaryFeatures)){
   print "($key, $value)\n";
}