use Time::HiRes qw( time );
for my $exp (3 .. 8) {
   my $count = 10**$exp;
   my $start = time();
   my $x = '';
   for (1 .. $count) {
      $x .= 'x';
   }
   printf "%d  %.5f\n", $count, time() - $start;
}