# get the first number found over 1000
$first_match = first { $_ > 1000 } @numbers;