my $rounded = int( $num * (10 ** $stellen) + 0.5 ) / 10 ** $stellen;