my %b;
while (DUMP_B) {
  chomp;
  my ($id, $ac) = split /\|/, $_;
  push @{$b{$id}}, $ac;
}
my $readID;
while(defined($readID = DUMP_A)){
  #chomp;
  $readID =~ s!\s+!!g;
  my $ac = $b{$readID} || [];
  #print "$readID: ", join(', ', @$ac), "\n";
  my $arrSize = scalar @$ac;
  if($arrSize > 0 ){
	for (my $i = 0; $i < $arrSsize ; $i++) {
		print OUTPUT "$readID|@$ac[$i] \n";
	}
  }
}