#!/usr/bin/perl
use strict;

my %idname;
open(IN,"PG_id_name.txt")||die;
while(my $line=<IN>){
	chomp $line;
	my ($id, $name)=split("\t",$line);
	$idname{$id}=$name;
}
close IN;


open(IN,"PG_16S_rRNA_unique_id.mafft.fasta")||die;
open(OUT,">PG_16S_rRNA_unique_name.mafft.fasta")||die;

while(my $line=<IN>){
	$line=~s/^>(\S+)/>$idname{$1}/;
	print OUT $line;
}
close IN;
close OUT;