foreach $key (keys %hash) {
    $ref = $hash{$key};

##</code><code>##

  foreach $ref (values %hash) {