#!/usr/bin/perl -l

use strict;
use warnings;

my $num = 123.456;
str($num);

sub str {
   my ($want_num, $width) = @_;
   $width = '000';
   $want_num =~ tr/./,/;
   $want_num = print "$want_num$width";
}