my $M;
my $n;
my $remaining = $n % $M;
my $next_multiple = $n + $M - $remaining;