Select Code to Download

BEGIN {
    print time . "\n";
...
print time;
print "\n";
print @a;

1325041203
1325041203
...

1325041218
1

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

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