@lcase = ('a' .. 'y');

@upcase = sub { local $_ = join '', @_; s/(.{1,2})/ ucfirst($1) /ge; split }->( @lcase );