my %hash;
BEGIN { %hash = ...; }
sub routine {
   ... %hash ...
}