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