foreach $val_1 (keys %myhash) {
   no warnings 'uninitialized';
   print "myhash{$val_1} = $myhash{$val_1}\n";
}