Replacing the hash slice assignment with the following:

undef @data{@data};
[download]

is considerably faster, though somewhat obscure. Also, your slice assignment doesn't do quite what you mean it to do (it sets only the first key's value to 1, and the rest to undef).

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print