my @data = (1,2,3,4,5,6,7,8,9,10);

@data = grep {! m/4/} @data; # Remove elements containing the digit 4