my $max = 100;
my @results;
for my $count (1..$max) {
   my $result = calculate($count);
   push @results,$result;
}
print "Ergebnisse\n";
for my $index (1..$max) {
   print "Ergebnis ",$index, ": ",$result[$index-1];
}