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