sub neueloesung { my $num = shift (@_) || 0; my $stellen = shift (@_) || 0; my $rounded = '0'; if ($stellen >= 0 && $stellen <= 9 && !($num =~ /[^-\.0-9]/)) { $rounded = int ($num * (10 ** $stellen) + ($num < 0 ? -0.5 : 0.5) ) / 10 ** $stellen; } return $rounded; }