my %op = (
  'toupper' => \*uc{CODE},
  ...
);