sub lowercase {
        return map { lc } @_ ;
        }

  $jim = lowercase( 'Jim' ) ;

  ## $jim == 1