my @array;
foreach my $i (1 .. $SOME_BIG_NUMBER) {
    $array[$i] = 1 if found($i);
}