Colors sorted by darkness

#!/usr/bin/perl @codes = ('00','33','66','99','CC','FF'); @cc = (hex 00,hex 33,hex 66,hex 99,hex CC,hex FF); for ($i=0; $i < 6; $i++) { for ($j=0; $j < 6; $j++) { for ($k=0; $k < 6; $k++) { $color=$codes[$i] . $codes[$j] . $codes[$k]; $dist = sqrt($cc[$i]*$cc[$i] + $cc[$j]*$cc[$j] + $cc[$k]*$cc[$k]); $ColorDist{$color}=$dist; } } } @keys = sort { $ColorDist{$b} <=> $ColorDist{$a} || $a cmp $b } keys %ColorDist; print< Colors sorted by darkness EOT $dist=0; for $color (@keys) { if ($dist != $ColorDist{$color}) { print "\n

\n"; } $dist = $ColorDist{$color}; print<

$color 
EOT
}
print "\n";