Help for this page
use strict; ... us A004 we A000 B002 C006 you A002
my @keylist = sort keys %distro; ... my @missingD = grep { $distro{$_} !~ / D\d+/ } @keylist; # and so on.