There is a performance issue in Perl 5.6 which causes it to take quadratic time for returning multiple list values in map calls, though tilly has produced a patch for this.

For more detail on this issue, check out this thread.

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