my %Goodwords;
my $speakerID;
my %speaker;
my $good;
my %minresgen;
my $minres;