Код:

$price55 = sprintf "%.2f", $price55;
$price55=reverse $price55;
$price55 =~ s/(\d{3})(?=\d)/$1,/g; 
$price55=reverse $price55;