依据A文件内容提取B文件内容（条件匹配）

#!/usr/bin/perl -w
#use strict;
open OUT,">mac";
print "please input your file name(match target),then press Enter.\n";
while (){
    chomp;
          if (/>/){ $key=$_;
       my       @match=split;
         }
        else {  $my_hash{$key}.=$_ ;
             }
            
print "please input your file ID name file,then press Enter.\n";
   my @name=;
   foreach my $id($name){
       chomp$id;
          if (">$name"==$match[0]){
              print "$_\n$my_hash{$key}\n";
         }
       }
    }
exit;
########A和B两个文件条件匹配#################