my $rounded = (int $num*2)/2;