for($i=-2;$i<=80;$i+=5) {
                my $a = $i+2;
                my $b = $i+4;
                if($restnutzung >= $i && $restnutzung <= $b) { $restnutzung = $a; }
        }

#!/usr/bin/perl

use warnings;
use strict;

my $zahl = 16;

if (substr($zahl,1,1) >= 5) {
   substr($zahl,0,1) += 1;
}

substr($zahl,1,1) = 0;

print $zahl;

1;

my $rest = $zahl % 5;
if ($rest < 3) {
    $zahl -= $rest;
} else { 
    $zahl += (5-$rest);
}

my $rest = $zahl % 5;
if ($rest < 3) {
    $zahl -= $rest;
} else { 
    $zahl += (5-$rest);
}

$endwert = &runden($ertragswert3,"5000");

sub runden {
        my $aufrundenab = $_[1] / 2;
        my $zahl = $_[0];
        
        my $rest = $zahl % $_[1];
        if ($rest < $aufrundenab) {
                $zahl -= $rest;
        } else { 
                $zahl += ($_[1] - $rest);
        }
        return($zahl);
}