#!/tools/gnu/bin/perl-5.6.0-32bit

use Term::ANSIColor qw(:constants);

# BLACK RED GREEN YELLOW BLUE MAGENTA 

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