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

@h{@bl} = @bl;