CGI output problem

Eto edin wapros s powishena trudnost (pone zasega za men)
Ste bada mnogo blagodaren ako nqkoi znae elegantno reshenie
Zna4i, imam nesto takowa:
push(@row,Tr(td[$foo,$foo*.9,$total,$foo*.6]))) if ($foo>5);
push(..........) if (blq-blq);
...................................................
...........................................................

print table({-border=>3,cellspacing=>3,@row});

Palne si array i si go wadq w table posle,oba4e kato ne moga da dokaram
4islata da islisat waw format 00.00 t.e. s 2 nuli i to4ka dori ako sa integer.
A nqkoi sa.......
printf ne varshi rabota 'stoto imam ne samo 4isla ami i string i + towa ne winagi sa w edin i sasti red.
4etem ot 6 h debeli knigi ama te takowa nesto nikoi ne e opisal,adjeba....

So, every help will be appreciated.
Mersi predvaritelno.

hth :

perl -e 'print sprintf "%05s",(sprintf "%.2f",2.445)'
perl -e 'print sprintf "%05s",(sprintf "%.2f",2)'
perl -e 'print sprintf "%05s",(sprintf "%.2f",.2)'

Number::Format - Perl extension for formatting numbers

[линк]

__________________________
[линк]

mersi na wsi4ki dali idei.
Setih se za sprintf, no nqmah wreme da napisha towa.
Number::Format moje bi e oste po-dobra ideq