sub lc (\$) {
   my $ref = shift;
   my $val = CORE::lc $$ref;
   return $val if defined wantarray;
   $$ref = $val;
}