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

}

##</code><code>##

my @tokens = (tokens here);

while ($line =<>){
	chomp($line);
	die "$line is not a valid token" unless findone { m/^$line/ } @tokens;
}