open my $zap, ">", "NULL:";
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;
                },
}

__END__
# modfied code as posted above (5.6.1 on W2k)
         Rate  tens every
tens   1159/s    --  -90%
every 11285/s  874%    --

# original code (5.6.1 on W2k)
         Rate  tens every
tens   1124/s    --  -90%
every 11219/s  899%    --

#  5.8.4 (XP)
         Rate  tens every
tens   8305/s    --  -73%
every 30329/s  265%    --

# 5.8.6 No Implicit Sys (XP)
         Rate  tens every
tens   9655/s    --  -68%
every 29755/s  208%    --