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;
                },
}

##</code><code>##

$ aperl nullout.pl
        Rate every  tens
every 3792/s    --  -34%
tens  5728/s   51%    --

$ perl nullout.pl
        Rate every  tens
every 1479/s    --  -54%
tens  3226/s  118%    --