$out = sprintf("%f.2", $number);
$out =~ s/\./,/g;

se funziona come C, perche ora non ricordo!!