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];

##</code><code>##

my $foo;
$foo = 'bar';

##</code><code>##

my $foo = 'bar';

##</code><code>##

my $str = join '; ', $foo, $bar, $baz, $qux;

##</code><code>##

foreach my $OriginalBlast (@files) {