Select Code to Download

# Hash table/dictionary for all the  groups

sub oh { map values %$_, @_ }

ins @$_ for map {xtend $_, qw(P E Pl)} (oh oh oh \%T);

ins split /,\s*/ for <DATA>;