my %fasta_source;

my $tmp_title;
open INSEQ,"<$file_fasta";
while (<INSEQ>) {
    chomp;
    if ($_=~/^>/) {
        $tmp_title=$_;
    }
    else {
        $fasta_source{$tmp_title}.=$_;
    }
}
close INSEQ;