Select Code to Download

my %sub_named
    = ( this => \&this,
...
else {
    # error, no sub named $ref
}

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

use English '-no_match_vars';

...
        # a dispatch table would have caught this
    }
}