my %color = ( lavender => $im->colorAllocate(230,230,255),
               lightblue => $im->colorAllocate(173,216,230),
               honeydew => $im->colorAllocate(240,255,240) );

while (@ary) {
         my $genecolor= coloring ();
         $im->filledRectangle($X1,$Y1-20,$X2,$Y2,$color{$genecolor});