Help for this page

Select Code to Download

Select or download this

use strict;

...
us       A004 
we       A000  B002  C006 
you      A002

Select or download this

my @keylist = sort keys %distro;

...
my @missingD = grep { $distro{$_} !~ / D\d+/ } @keylist;

# and so on.