Select Code to Download

  @aa = @bb = (1) x $nn;

  push @ready, "@aa\n";
  ...
  push @ready, "@aa\n";
  ...
  push @ready, "@bb\n";

  for (my $kk = $nn; $kk > 0; --$kk) {
    ...
  }