use List::Util 'shuffle';
for my $g (1..$Number_of_generations) {
  print "Generation $g:\n";
  print "Geographic regions:\n";
  for my $r (shuffle(1..$Number_of_geographic_regions)) {
    print "$r\n";
  }
}
[download]