@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']
);;

$arr[ $_ ] ~~ /e/ and splice @arr, $_, 1 for reverse 0 .. $#arr;;

pp \@arr;;
[
  ["a", "b", "c", "d"],
  ["h", "i", "j"],
  ["h", "i", "j"],
  ["h", "i", "j"],
  ["a", "b", "c", "d"],
  ["a", "b", "c", "d"],
]