use warnings;

use Benchmark("cmpthese");

cmpthese(-1, {
   "double", q !eval q {$a = "this is a string" x 10}!,
   'single', q !eval q {$b = 'this is a string' x 10}!,
});