in reply to Best way to make sure a number is an even multiple of another?
use POSIX qw(ceil); sub fix { my ($n, $m) = @_; ceil($n/$m)*$m; } [download]