Help for this page
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% --
www.com | www.net | www.org
No recent polls found