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