Select Code to Download

foreach my $key (keys %valid) {
    foreach my $element (@{$valid{$key}}) {
        print STDERR "$key: $element\n";
    }
}

while(my($key, $val) = each %valid) {
    foreach my $element (@$val) {
        print STDERR "$key: $element\n";
    }
}