Select Code to Download

my %hash= initvalues();

...
sub initvalues {
  return ('a'=>0, ...);
}

my %hash;
inithash(\%hash);
...
%$h= ( 'a'=>0, ... ); #alternative to the previous line
}