Select Code to Download

use strict;
use warnings;
...
    @$raOrig = grep { ! $rcSift->( $_ ) } @$raOrig;
    return @extracted;
}

Sifting approx. 10% from array of 1000 integers from 0 to 99
          Rate twoGreps    lodin   merlyn   johngg
...
twoGreps 3.56/s      22%       --      -9%     -49%
johngg   3.92/s      34%      10%       --     -44%
merlyn   7.04/s     141%      98%      80%       --