my @result;    # leeres Array
foreach my $i (1..$max) {
  $result[$i-1] = compute_result($i);  # ein Element des Arrays wird überschrieben bzw. das Array erweitert.
}