#!/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;