%h = map {$_, 1} <QA>;