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

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

Of course, you could make this a stand-alone named sub if you expect to reuse it.