use POSIX qw(ceil);

sub fix {
    my ($n, $m) = @_;
    ceil($n/$m)*$m;
}