sub SCALAR::uc { CORE::uc($_[0]); }