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