Select Code to Download

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

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

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