You could use Data::Dumper ...

use Data::Dumper;
...

while( my ( $k, $v ) = each %hash )
{
   print Dumper( { qq[error:$k] , $v } );
}
[download]

Sure that will work , but just from a learning standpoint how could I get that loop work and print the values?

From your output you are; it's just the values are themselves hashrefs. You'd need to then iterate over those in turn. The simplest solution is going to be to use Data::Dumper (or YAML::XS or JSON::PP or . . .).

The cake is a lie.
The cake is a lie.
The cake is a lie.

> but just from a learning standpoint how could I get that loop work and print the values?

you are looping over a hash-ref and $v is another hash-ref, again.

so start another loop over $v.

In the general case you'll need a recursive function which loops over hash-refs and array-refs.

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery}

Sure that will work , but just from a learning standpoint how could I get that loop work and print the values?

See Hashes of Hashes in perldsc.

uuse strict;
use warnings;
sub PrintHash{
  my ($href, $indent_text, $level) = @_;
  $level ||= 0;
  while (my ($k, $v) = each(%$href)) {
  print +("\t" x $level), "${indent_text}$k = ";
    if (not ref $v){ #SCALAR 
       print "$v\n";
    }elsif (ref $v eq "HASH"){
       print "\{\n";
       PrintHash($v,"",$level+1);
       print +("\t" x $level),"}\n";
    }elsif (ref $v eq "ARRAY"){
       local $,=", ";
       print "\@(@$v)\n";
       # Could do a better job by writing sub PrintArrayRef{}
    }else{
       die "ERROR: Invalid type:",ref($v),"\n";
    }
   }
}

PrintHash({Uno=>1, Dos=>2, Tres=>3, Cuatro=>[1,2,3,4], Cinco=>{otro=>9
+9,rojo=>'Red'}},
            "Error codes:",
            0);
[download]

> perl .\printhash.pl
Error codes:Cuatro = @(1 2 3 4)
Error codes:Uno = 1
Error codes:Dos = 2
Error codes:Tres = 3
Error codes:Cinco = {
        otro = 99
        rojo = Red
}
[download]

Holy crap ! that works great! thanks NetWallah