my $lavender=$im->colorAllocate(230,230,255);
my $lightblue=$im->colorAllocate(173,216,230);
my $honeydew=$im->colorAllocate(240,255,240);
while(@ary) {
       my $genecolor= coloring ();
       $im->filledRectangle($X1,$Y1-20,$X2,$Y2,$$genecolor);
            }