my @ary = ( "1,200.13", "1,105.02" );
tr{,}{}d for @ary;
print "@ary\n";