Devi prima salvarlo in una variabile tipo stringa con sprintf, poi sostiturie il punto con la virgola con una RE:

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

Ciao
Michele