Select Code to Download

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

@h{@bl} = @bl;

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

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

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