Select Code to Download

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

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

use Data::Dumper;

...

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

Hi All 

...
return \%reg_coes;

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

<p>Hi All </p>
<p>
...
<p>
what I want to do is print out the key and value in reg_coe, how do I 
+do that?
</p>