print start_table, Tr(td(' '), th[@colors]); for my $scale ( -5 .. +5 ) { print Tr(td($scale/10)), Tr( map { td{bgcolor=>'#'.$_},$_ } map { Dlighken($_, $scale/10) } @colors ) ; } print end_table;