for my $name (@colors) {
  no strict 'refs';	# allow symbol table manipulation
  *$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
}