use File::Spec;
open my $zap, ">", File::Spec->devnull or die "open failed: $!";
use Benchmark "cmpthese";
cmpthese -10, {
   every => sub { for (1..100) { print $zap $_ } },
   tens  => sub { my $x;
                  for (1..100) {
                    $x .= $_;
                    unless ($x % 10) {
                      print $zap $x;
                      $x="";
                    }
                  }
                  print $zap $x if length $x;
                },
}