my @bl = <QA>;
my @a = <FA>;
my %h;

@h{@bl} = @bl;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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