Select Code to Download

#for (my $i = 1; $i <= 5; $i++) {
for my $i (1..5) {

   #$$clrCanvas -> itemconfigure(${$clrCanvasItem}, -fill => $color);
    $clrCanvas -> itemconfigure($clrCanvasItem, -fill => $color);