my $max_arr; my @ln_fact; ... BEGIN { $max_arr = 10000; $#ln_fact = $max_arr - 1;