my $hash_ref = mysub();
while (my ($k, $v) = each(%$hash_ref)) {
    print "$k = $v\n";
}

##</code><code>##

my $hash_ref = mysub();
foreach my $key (keys %$hash_ref) {
    print "$k = $hash_ref->{$k}\n";
}

##</code><code>##

use Data::Dumper;

# ...

my $hash_ref = mysub();
print Dumper $hash_ref;

##</code><code>##

Hi All 

I have a HASH built likr this

{
.
my @theta = $reg->theta();
$reg_coes{$id} = $theta[1];
$reg->print();
}		
	
return \%reg_coes;

what I want to do is print out the key and value in reg_coe, how do I do that?

##</code><code>##

<p>Hi All </p>
<p>
I have a HASH built likr this
</p>
<c>
{
.
my @theta = $reg->theta();
$reg_coes{$id} = $theta[1];
$reg->print();
}		
	
return \%reg_coes;
</c>
<p>
what I want to do is print out the key and value in reg_coe, how do I do that?
</p>