my ($pre, $num);
while(<>){
　　if(m/^>(\w+)/){
　　　　$pre = $1;
　　　　$num = 1;
　　} else {
　　　　print ">${pre}_$num\n";
　　　　print ;
　　　　$num++;
　　}
}