foreach $i(@splitted){
        if ($i=~/\b\w{6}\b/ and $i !~/\_/){
            $acc=$i;
[download]

If the accession number in the first file matched one in a line of the second one, then I'd push @pfx into @list. at least that was the plan