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

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