my @sub_list = qw( this that );
my %sub_named = map { $_ => eval "\\&$_" } @sub_list;
# etc.