# 65 chars
sub colors {
for$a(@_='00336699ccff'=~/../g){for$b(@_){print"#$a$b$_\n"for@_}}
}