#!/usr/bin/perl

my %colour;
my @colours = qw(red green yellow blue magenta cyan white);

for (0 .. $#colours) {
	$colour{$colours[$_]} = "\e[" . (31+$_) . 'm';
}

for (keys %colour) {
	print $colour{$_} . "$_\n";
}

print $colour{white};