use Benchmark;

sub p_add { for my $i (1..100) { for (1..100) { $_ + $i  } } }
sub p_sub { for my $i (1..100) { for (1..100) { $_ - $i  } } }
sub p_mul { for my $i (1..100) { for (1..100) { $_ * $i  } } }
sub p_div { for my $i (1..100) { for (1..100) { $_ / $i  } } }
sub p_pwr { for my $i (1..100) { for (1..100) { $_ ** $i } } }
sub p_mod { for my $i (1..100) { for (1..100) { $_ % $i  } } }
sub p_and { for my $i (1..100) { for (1..100) { $_ & $i  } } }
sub p_or  { for my $i (1..100) { for (1..100) { $_ | $i  } } }
sub p_xor { for my $i (1..100) { for (1..100) { $_ ^ $i  } } }
sub p_not { for my $i (1..100) { for (1..100) { ~$_      } } }
sub p_shl { for my $i (1..100) { for (1..100) { $_ << $i } } }
sub p_shr { for my $i (1..100) { for (1..100) { $_ >> $i } } }
sub p_gt  { for my $i (1..100) { for (1..100) { $_ > $i  } } }
sub p_gte { for my $i (1..100) { for (1..100) { $_ >= $i } } }
sub p_lt  { for my $i (1..100) { for (1..100) { $_ < $i  } } }
sub p_lte { for my $i (1..100) { for (1..100) { $_ <= $i } } }
sub p_eq  { for my $i (1..100) { for (1..100) { $_ == $i } } }
sub p_ne  { for my $i (1..100) { for (1..100) { $_ != $i } } }

timethese(100000, { add => \&p_add, sub => \&p_sub, mul => \&p_mul,
		    div => \&p_div, pwr => \&p_pwr, mod => \&p_mod,
		    and => \&p_and, or  => \&p_or,  xor => \&p_xor, 
		    not => \&p_not, shl => \&p_shl, shr => \&p_shr, 
		    gt  => \&p_gt,  gte => \&p_gte, lt  => \&p_lt,  
		    lte => \&p_lte, eq  => \&p_eq,  ne  => \&p_ne });

##</code><code>##

 lt: 2392 wallclock secs (2373.87 usr +  0.12 sys = 2373.99 CPU) @ 42.12/s (n=100000)
gte: 2392 wallclock secs (2374.10 usr +  0.18 sys = 2374.28 CPU) @ 42.12/s (n=100000)
 eq: 2401 wallclock secs (2381.67 usr +  0.33 sys = 2382.00 CPU) @ 41.98/s (n=100000)
 gt: 2405 wallclock secs (2387.47 usr +  0.10 sys = 2387.57 CPU) @ 41.88/s (n=100000)
lte: 2417 wallclock secs (2398.93 usr +  0.08 sys = 2399.01 CPU) @ 41.68/s (n=100000)
 ne: 2470 wallclock secs (2411.78 usr +  1.70 sys = 2413.48 CPU) @ 41.43/s (n=100000)

##</code><code>##

perl -MO=Deparse,-p -we 'print 1 if $foo >= $bar'
(($foo >= $bar) and print(1));
-e syntax OK

##</code><code>##

perl -MO=Deparse,-p -we 'print 1 if $foo < $bar'
(($foo < $bar) and print(1));
-e syntax OK

##</code><code>##

not: 2231 wallclock secs (2225.95 usr +  0.45 sys = 2226.40 CPU) @ 44.92/s (n=100000)
shr: 2653 wallclock secs (2478.63 usr +  3.47 sys = 2482.10 CPU) @ 40.29/s (n=100000)
and: 2513 wallclock secs (2493.72 usr +  0.31 sys = 2494.03 CPU) @ 40.10/s (n=100000)
 or: 2549 wallclock secs (2534.75 usr +  0.39 sys = 2535.14 CPU) @ 39.45/s (n=100000)
shl: 2921 wallclock secs (2507.25 usr +  6.75 sys = 2514.00 CPU) @ 39.78/s (n=100000)
xor: 2797 wallclock secs (2560.60 usr +  2.05 sys = 2562.65 CPU) @ 39.02/s (n=100000)

##</code><code>##

add: 2841 wallclock secs (2682.82 usr +  0.67 sys = 2683.49 CPU) @ 37.26/s (n=100000)
mul: 3048 wallclock secs (2696.55 usr +  2.84 sys = 2699.39 CPU) @ 37.05/s (n=100000)
sub: 2743 wallclock secs (2734.40 usr +  0.55 sys = 2734.95 CPU) @ 36.56/s (n=100000)
mod: 2878 wallclock secs (2755.51 usr +  0.88 sys = 2756.39 CPU) @ 36.28/s (n=100000)
div: 3018 wallclock secs (2989.89 usr +  0.65 sys = 2990.54 CPU) @ 33.44/s (n=100000)
pwr: 3883 wallclock secs (3549.47 usr +  5.42 sys = 3554.89 CPU) @ 28.13/s (n=100000)