Select Code to Download

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

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

use strict;
use warnings;
...
        print "($key, $element)\n";
    }
}

(bar, barricade)
(foo, fool)
(foo, food)
(foo, foot)