sub lowercase {
  return ( wantarray ) ? map { lc } @_ : lc $_[0];
}