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
}