Okay it's starting to make sense. The following does what I would expect:

use Readonly;

sub testvalue {

  Readonly my %hash => {h =>1};
  return \%hash;
}


my $h = testvalue();
$h->{h} = 2;
[download]