$str1 = 0.00;
print "str1 $str1\n";