Select Code to Download

use warnings;
use strict;
...
    'push_cg'   => $push_cg,
  # 'push_KM'   => $push_KM,
    });

c:\@Work\Perl\monks\Anonymous Monk\1044183>perl timing_rx_1.pl
validation...
...
cg_ncg    2.35/s        3%        2%        --       -0%       -4%
cg_la     2.35/s        4%        2%        0%        --       -4%
push_cg   2.45/s        8%        6%        4%        4%        --