my %valid = map {$_ => undef} qw(this_sub that_sub other_sub);
die unless exists $valid{$op};
&$op();