@data = grep $_ ne '4', @data; # Remove elements equal to '4'