$toround =~ /\.(\d)/;
if ($1 >= 5) { $toround+=.5 }
$toround = int $toround;