#!/usr/local/bin/perl -w

use strict;

use Benchmark;

my @foo = map {int rand 3} 1..100;

open(OUT, ">bm.out") or die "$!\n";
# Note: bm.out will be a large file when this is done.  :)

timethese(-10,
          {
           mod   => sub { for (@foo) { print OUT "$_" if $_; }
                          print OUT "\n"; },
           block => sub { for (@foo) { if ($_) { print OUT "$_"; } }
                          print OUT "\n"; },
           and   => sub { for (@foo) { $_ and print OUT "$_"; }
                          print OUT "\n"; },
          }
         );
__END__

Benchmark: running and, block, mod, each for at least 10 CPU seconds...
       and: 3554.42/s
     block: 3530.86/s
       mod: 3511.90/s