use subs qw|lc|; sub lc { CORE::lc shift } print lc("BAR");