use strict;
use warnings;

use Benchmark q{cmpthese};

my @states;
push @states, int rand 2 for 1 .. 10000;

cmpthese(-5,
   {
      tirwhan    => sub
         {
             foreach my $mf2 ( @states )
             {
                 my $lt = $mf2 ? q{processed time} : q{n/a};
             }
         },
      upallnight => sub
         {
             foreach my $mf2 ( @states )
             {
                 my $lt;
                 $lt = q{processed time} if $mf2;
                 $lt = q{n/a} unless $mf2;
             }
         },
   });

##</code><code>##

             Rate upallnight    tirwhan
upallnight 22.6/s         --       -22%
tirwhan    29.1/s        29%         --