$answer = sprintf "%.0f", $answer;
$len1 = length($answer);