There is another approach:

use List::Util qw(max);

my $max_numb = max(map { generate_number($_) } 0..99);

sub generate_number {
  my $index = shift;
  #...
}
[download]