Select Code to Download

my $text_orig = "The respondent uses the following products XXX, YYYYY
+YYYY, ZZZZZZZ around the house and they are considering using QQQQQQQ
+ too. They are particularly impressed with ZZZZZZZ.\n";

...

   print($text_new);
}

use List::Util qw( shuffle );

...

   print($text_new);
}

for (1..4) {
   my %picked;
...

   print($text_new);
}

use Benchmark qw( cmpthese );

...
   b => sub { keys(%b) == 1; },
   c => sub { keys(%c) == 1; },
});

       Rate   a   c   b
a 2314690/s  -- -1% -5%
c 2340571/s  1%  -- -4%
b 2429401/s  5%  4%  --