while ( my ($val,$index) = findone { $_ > 1000 } @elements){
	# Do something

}