my @data = (1,2,3,4,5,6,7,8,9,10);
my ($element) = grep {m/4/} @data; # Get the first element containing the digit 4