Select Code to Download

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

}

my @tokens = (tokens here);

...
    chomp($line);
    die "$line is not a valid token" unless findone { m/^$line/ } @tok
+ens;
}