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

##</code><code>##

 sub coloring{
  my @color= @{$_[0]};
  my $color_no=int(rand(scalar @color));
  return $color[$color_no];
}

##</code><code>##

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

for (@ary) {
         my $genecolor= coloring ([keys %color]);
         $im->filledRectangle($X1,$Y1-20,$X2,$Y2,$color{$genecolor});
}