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

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

##</code><code>##

Undefined subroutine &CORE::uc called at ./test.pl line 20.