Select Code to Download

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

my $foo;
$foo = 'bar';

my $foo = 'bar';

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

foreach my $OriginalBlast (@files) {