foreach $id (keys %id2seq){
        my $filename = (split /\|/, $id)[0];
        open  my $out_fh, '>>', "$filename.fa" or die $!; 
        print $out_fh (">".$id."\n",$id2seq{$id}, "\n");
        close $out_fh;
    }