my %h;
while (<QA>) {
     $h{$_) = 1;
}