Select Code to Download

use strict;
use warnings;
...
while ( my( $key,$subhash ) = each %hash) {
    print "$key: $subhash->{$label1}\n" if exists $subhash->{$label1};
}

a: 1
d: 4
h: 8
b: 2
f: 6