Select Code to Download

@mainarr = (1, 2, 3, 4, 5, 6,7, 8, 9, 10, 11, 12, 13, 14, 15);
@is_tiny_prime = ();
for (@primes) { $is_tiny_prime[$_] = 1 }
# or
@istiny_prime[@primes] = (1) x @primes;