my(%hash) = (
  "sub" => \&uc,
);

print $hash{"sub"}->("hello");