sub routine { my %hash; BEGIN { $hash{KEY} = "string"; } }