foreach my $a (@a){
#  print $a."\n";
  my @b = split(/[.]/,$a);
  #print @b.$n;
  #print $b[0].$n.$b[1].$n.$b[2].$n.$b[3].$n.$b[4].$n.$b[5].$n.$b[6].$n.$b[7];
  my $OrginalBlast;
  $OrginalBlast = $b[0].".".$b[1].".".$b[2].".".$b[3].".".$b[4].".".$b[5].".".$b[6].".".$b
+[7];