BEGIN {
    print time . "\n";
}
use List::MoreUtils qw/any/;
BEGIN {
    print time . "\n";
}
print time . "\n";
my @a = any {$_== 92} 1..100000000;
print "\n";
print time;
print "\n";
print @a;

##</code><code>##

1325041203
1325041203
1325041218

1325041218
1

##</code><code>##

    int *array = malloc(100000000 * sizeof(int));
    int i;
    for(i = 0; i < 100000000; i++){
        array[i] = i + 1;
    }

##</code><code>##


print time . "\n"; 
my @a = any {$_== 92} 1..100000000; print "\n"; 
print time;