use warnings;
use strict;

use Data::Dumper;

my $primary_features = {
  foo => [ 'fool', 'food', 'foot', ],
  bar => [ 'barricade' ]
};

print Data::Dumper::Dumper( $primary_features );

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