in reply to Benchmarking String::Approx

You can't just eval that string, try: 
cmpthese (-5,{ me => sub { mymatch($str,2,\@arr) },
               jk => sub { amatch($str,['2'],@arr) }
);

[download]
"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom