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