sub inc {
    my $var = shift;
    ${$var}++ unless ${$var} == $MAX;
}
# yada yada yada
inc(\$var);