sub coloring{
  my @color= qw(  lavender lightblue honeydew);
  my $color_no=int(rand($#color));
  return $color[$color_no];
}

##</code><code>##

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);
            }