@num = (6, 5.3, 8.5, 9.5000000001, 3.84, 4.51);
foreach $num (@num) {
   print qq{original: $num\n};
   $new = sprintf "%.0f\n",$num;
   print qq{new: $new};
}