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