Select Code to Download

$mw->idletasks();

$canvas->idletasks();

for ... (...) {
    ...
...
}

$canvas->idletasks();

   for my $i (0..$size-1){
      for my $j (0..$size-1){
...
         $USE[$i][$j]=$c;
      }
   }

   for my $i (0..$size-1){
      my $i_col = $i%0xFF;
...
                      : sprintf("#00%02X00",$j%0xFF);
      }
   }

   for my $i (0..$size-1){
      my $i_col = $i%0xFF;
...
         $USE[$i][$j] = $i_mod20_9^($j%20>9) ? $reds[$i_col] : $greens
+[$j%0xFF];
      }
   }

if (exists $use_cols{$size}) {
    @USE = @{$use_cols{$size}};
...

    $use_cols{$size} = [@USE];
}