our $name;
for $name (qw(red blue green yellow orange purple violet)) {
  no strict 'refs';        # allow symbol table manipulation
  no warnings 'redefine';  #ignore noise about redefinitions
  *$name = sub {
    my $sOutput = "<FONT COLOR='$name'>@_</FONT>";
    $name = 'something wacky and wonderful'; #change the value
    return $sOutput;
  };
}
print "red:    ${\(red())}\n";
__END__
red:    <FONT COLOR=''></FONT>