while (<>) { my ($verb, @args) = split; no strict 'refs'; if (defined &{"Verbs::$verb"}) {"Verb::$verb" -> (@args)} else {print "No verb '$verb' implemented.\n"} }