my %op = (
  'toupper'=>sub{uc(@_)},
  ...
);