>1
AACTCTGGGACAATGGCACACGGGAAACAGATAATGAACGATCAGCACAGGGAACTAGCG
>2
AACTCTGGGACAATGGCACACGGGAAACAGATAATGAACGATCAGCACAGGGAACTAGCG
>3
AACTCTGGGACAATGGCACACGGGAAACAGATAATGAACGATCAGCACAGGGAACTAGCG

##</code><code>##

%lista2=(
1	=>	"CAT00.3",
2	=>	"CAT43.1",
3	=>	"CAT40.3"
);

open(OA,">file2.txt");

foreach $key (keys %lista2){
open(SAL,"file.txt");
while(<SAL>) {
		chomp;
			if(/>/) {
			@w=split("\t");			
				$r=0;
				s/\;//g;
				if (/%lista2[i]/) {				
					print OA "$_ $lista2{$key}\n" ;
					$r=1;
					}
				}
			}
			
		}
close(SAL);
close(OA);

##</code><code>##

>CAT00.3
AACTCTGGGACAATGGCACACGGGAAACAGATAATGAACGATCAGCACAGGGAACTAGCG
>CAT43.1
AACTCTGGGACAATGGCACACGGGAAACAGATAATGAACGATCAGCACAGGGAACTAGCG
>CAT40.3
AACTCTGGGACAATGGCACACGGGAAACAGATAATGAACGATCAGCACAGGGAACTAGCG