my(%hash) = (
         "sub" => sub { uc $_[0] },
);

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