sub HTML_Something {
 my $t = shift;

 return <<END;
     <tr/td code>
     $t->{key}
     </tr>
END
}

##</code><code>##

sub HTML_Something {
 my $t = shift;
 my $d = new Number::Format (-thousands_sep => ',', -decimal_point => '.', -decimal_fill => 2);

 return <<END;
     <tr/td code>
     $d->format_number($t->{key})
     </tr>
END
}

##</code><code>##

sub HTML_Something {
 my $t = shift;
 my $d = new Number::Format (-thousands_sep => ',', -decimal_point => '.', -decimal_fill => 2);
 
 $t->{key} = $d->format_number($t->{key});

 return <<END;
     <tr/td code>
     $t->{key}
     </tr>
END
}