while (my ($k,$v) = each %construct) {
    print "$k has values: " . join(',', @$v) . "\n";
}