# an array of terms used to create hash1 my @terms = ( 'male','female','child' ); # hash1 of term arrays my %terms = (); $terms{1} = [ 'male' ]; $terms{2} = [ 'female' ]; $terms{3} = [ 'child' ]; $terms{4} = [ 'male', 'female' ]; $terms{5} = [ 'male', 'child' ]; $terms{6} = [ 'female', 'child' ]; $terms{7} = [ 'male', 'female', 'child' ]; # hash2 of term occurrences my %occurs = (); $occurs{111} = [ 'male' ]; $occurs{112} = [ 'male' ]; $occurs{113} = [ 'male', 'child' ]; $occurs{114} = [ 'female' ]; $occurs{115} = [ 'child', 'female' ];