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