# Hash table/dictionary for all the  groups

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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