I like to avoid the string version of anything that resolves to eval. You may get better error messages by changing it to:

cmpthese (-5,{ me => sub { mymatch($str,2,@arr) },
               jk => sub { amatch($str,['2'],@arr) },
             });
[download]

(The escapes on @arr or lack thereof are confusing me...)