@al = qw (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z);

##</code><code>##

@al = 'A' .. 'Z';

##</code><code>##

my %dp_numfmt = (
    dp0 => "0",
    dp1 => "0.0",
    dp2 => "0.00",
    # etc.
);