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

##</code><code>##

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

##</code><code>##

use strict;
use warnings;

my $foo;
my $bar;
my %hash = ("_foo" => "FOO", "_bar" => "BAR");

foreach my $varname (keys %hash)
{
    eval "\$" . substr($varname,1) . " = '" . $hash{$varname} . "';";
}

print "$foo\n$bar";