my %op = (
  'toupper' => \&uc,
  ...
);

print $op{'toupper'}->($text);

##</code><code>##

Undefined subroutine &CORE::uc called at ...