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