use Data::Dump;

my %desc;
init_desc();

dd \%desc;

sub init_desc {
    @desc{ONE,TWO}= (<<'__ONE__',<<'__TWO__');
one
__ONE__
two
__TWO__
}