sub upper { eval { $_ = uc for @_; 1; } }