my ($min_char, $max_char) = (1,12);

##</code><code>##

sub MIN { return 1  }
sub MAX { return 12 }

##</code><code>##

sub MIN { 1  }  # could just as easily be 'use constant MIN => 1;'
sub MAX { 12 }
printf "x %d - %d x", MIN, MAX;

##</code><code>##

my ($min, $max) = (1,12);
print "x $min - $max x";