Select Code to Download

foreach my ($blastresult, $value) {$_ = $$self{_$_};}

my $blastresult = "foo";
my $value       = "bar";
foreach my ($blastresult, $value) {print;}

use strict;
use warnings;
...
}

print "$foo\n$bar";