use constant MIN_CHAR => scalar 1;
    use constant MAX_CHAR => scalar 12;

    print 'x '.MIN_CHAR.'-'.MAX_CHAR.' x';

##</code><code>##

    my %constants = (
        min_char => 1,
    	max_char => 12
    );

    print "x $constants{'min_char'}-$constants{'max_char'} x";