Select Code to Download

my @x = qw( eenie meenie minie moe );
my @y = cull { /m.*nie/ } @x;
...
__END__
meenie minie
eenie moe

my @x = grep { /m.*nie/ } qw( eenie meenie minie moe );
my @y = cull { /m.*nie/ } qw( eenie meenie minie moe );

my @y = cull sub { /m.*nie/ }, @x;
my @y = cull( sub { /m.*nie/ }, @x );

for my $i ( reverse 0 .. $#$array ) {

sub cull (&\@) {
  my ( $test, $array ) = @_;
...
  }
  return @culled;
}