my %HashOfDataBase = ();
my $IdFasta = "";

if($Data=~/^(\S+)\s+\S+\s+.*/) 
{
  $IdFasta=$1;#storing name
}

@ArrayFasta=split '"',$Data;
$FastaSeqOfDataBase = $ArrayFasta[2];#storing letters of the alphabet like a,b,d,e..

#use this if to initiliaze the "$HashOfDataBase {$IdFasta}"
if ($Flag == 0)
{
   $Flag = 1;
   $HashOfDataBase {"$IdFasta"} = "";
}
							$HashOfDataBase {"$IdFasta"} = "$FastaSeqOfDataBase";#that is the line of the error