use List::MoreUtils qw( firstidx );

sub cull_parv (&\@)
{
  my ( $test , $array ) = @_;

  my @culled;
  while ( -1 < ( my $i = firstidx { &$test } @$array ) )
  {
    push @culled , splice @$array , $i , 1 ;
  }
  return @culled;
}

##</code><code>##

#!/usr/local/bin/perl

use warnings; use strict;

use Benchmark qw( timethese cmpthese );

use List::MoreUtils qw( firstidx );

sub cull_tlm (&\@) ;
sub cull_parv (&\@) ;

my ( $res , $cmp , @x1 , @x2 , @y1 , @y2 );

for my $end  ( 5 , 10 , 20 , 50 , 100 , 1000 , 5000 , 1_000_000 )
{
  @x2 = @x1 = ( 0 .. $end );

  print "End is: $end\n";

  $res =
    timethese
    ( -15
    , {
        'tlm'  => sub { @y1 = cull_tlm  { $_ > $end -3 } @x1 }
      , 'parv' => sub { @y2 = cull_parv { $_ > $end -3 } @x2 }
      }
    );
  cmpthese( $res );

  print "\n";
}

exit;

sub cull_tlm (&\@) {
  my ( $test, $array ) = @_;
  my @culled;
  for my $i ( reverse 0 .. $#$array ) {
    local $_ = $array->[ $i ];
    unshift @culled, splice @$array, $i, 1 if $test->();
  }
  return @culled;
}

sub cull_parv (&\@)
{
  my ( $test , $array ) = @_;

  my @culled;
  while ( -1 < ( my $i = firstidx { &$test } @$array ) )
  {
    push @culled , splice @$array , $i , 1 ;
  }
  return @culled;
}
__END__
End is: 5
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 15 wallclock secs (15.73 usr +  0.04 sys = 15.77 CPU) @ 41632.52/s (n=656688)
       tlm: 16 wallclock secs (15.68 usr +  0.01 sys = 15.69 CPU) @ 41435.60/s (n=650021)
        Rate  tlm parv
tlm  41436/s   --  -0%
parv 41633/s   0%   --

End is: 10
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 17 wallclock secs (15.72 usr +  0.02 sys = 15.74 CPU) @ 30794.20/s (n=484768)
       tlm: 17 wallclock secs (15.70 usr +  0.02 sys = 15.71 CPU) @ 25612.16/s (n=402391)
        Rate  tlm parv
tlm  25612/s   -- -17%
parv 30794/s  20%   --

End is: 20
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 16 wallclock secs (15.77 usr +  0.04 sys = 15.80 CPU) @ 20255.38/s (n=320130)
       tlm: 16 wallclock secs (15.70 usr +  0.02 sys = 15.72 CPU) @ 14563.18/s (n=228915)
        Rate  tlm parv
tlm  14563/s   -- -28%
parv 20255/s  39%   --

End is: 50
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 16 wallclock secs (15.72 usr +  0.03 sys = 15.75 CPU) @ 10012.32/s (n=157694)
       tlm: 16 wallclock secs (15.72 usr +  0.02 sys = 15.73 CPU) @ 6297.10/s (n=99081)
        Rate  tlm parv
tlm   6297/s   -- -37%
parv 10012/s  59%   --

End is: 100
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 16 wallclock secs (15.77 usr +  0.04 sys = 15.81 CPU) @ 5428.55/s (n=85839)
       tlm: 16 wallclock secs (15.72 usr +  0.04 sys = 15.76 CPU) @ 3251.97/s (n=51244)
       Rate  tlm parv
tlm  3252/s   -- -40%
parv 5429/s  67%   --

End is: 1000
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 16 wallclock secs (15.65 usr +  0.04 sys = 15.69 CPU) @ 590.15/s (n=9258)
       tlm: 16 wallclock secs (15.70 usr +  0.05 sys = 15.74 CPU) @ 335.40/s (n=5280)
      Rate  tlm parv
tlm  335/s   -- -43%
parv 590/s  76%   --

End is: 5000
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 16 wallclock secs (15.93 usr +  0.04 sys = 15.97 CPU) @ 118.67/s (n=1895)
       tlm: 16 wallclock secs (15.70 usr +  0.03 sys = 15.73 CPU) @ 66.89/s (n=1052)
       Rate  tlm parv
tlm  66.9/s   -- -44%
parv  119/s  77%   --

End is: 1000000
Benchmark: running parv, tlm for at least 15 CPU seconds...
      parv: 15 wallclock secs (15.05 usr +  0.03 sys = 15.08 CPU) @  0.60/s (n=9)
       tlm: 15 wallclock secs (15.05 usr +  0.05 sys = 15.10 CPU) @  0.33/s (n=5)
     s/iter  tlm parv
tlm    3.02   -- -45%
parv   1.68  80%   --