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