use strict;
use warnings;

my @arr=(['a','b','c','d'],['e','f','g'],['h','i','j'],['e','f','g'],['h','i','j'],['e','f','g'],['h','i','j'],['a','b','c','d'],['a','b','c','d']);
my @copy = @arr;

my $i=-1;

for(@arr){
    $i++;
    if(@$_[0] =~ /e/){
        splice(@copy,$i,1);
        $i--;
    }
}
print join (' ', @$_), "\n" for @copy;

##</code><code>##

my @arr1 = grep { @$_ !~ /e/ } @arr;