my $str = 'x' x 1_000_000;
...
cmpthese 100,
...