foreach $num (0 .. 9)
{
   foreach $colour (BLACK, RED, GREEN, YELLOW, BLUE , MAGENTA)
   {
      print $colour, "$num ", RESET;
   }
}
print "\n";