Select Code to Download

my %dispatch = (
    test   => sub { print "test\n"  },
...

$name = 'hello';
$dispatch{$name}->();

my $name = 'test';
__PACKAGE__->can("update_$name")->();
...

sub update_test  { print "test\n"  }
sub update_hello { print "hello\n" }