Quote

kabel@linux:~> perl
sub aufrunden {
my ($zahl) = @_;
return $zahl if $zahl == int ($zahl);
return int ($zahl + 1);
}

@zahlen = map { aufrunden ($_) } (2.42, 4.092, 3, 7.985, 2);

{ local $"=", "; print "@zahlen\n"; }
3, 5, 3, 8, 2
kabel@linux:~>