for my $i (0 .. 5)
{
	my $rand[$i] = $im->colorAllocate(rand_color(),rand_color(),rand_color());
}
#my $rand	= $im->colorAllocate(rand_color(),rand_color(),rand_color());
#my $rand1   = $im->colorAllocate(rand_color(),rand_color(),rand_color()); 
#my $rand2   = $im->colorAllocate(rand_color(),rand_color(),rand_color()); 
#my $rand3   = $im->colorAllocate(rand_color(),rand_color(),rand_color()); 
#my $rand4   = $im->colorAllocate(rand_color(),rand_color(),rand_color());