use Number::Format::Calc ( -thousands_sep=>"", -decimal_point=>",");
use strict;
use warnings;

while (<DATA>)
{
    my $n = new Number::Format::Calc ($_);
    print $n * 2, "\n";

}
__DATA__
1,1
2,2
3,3