@z2 = ("01" .. "31");
print $z2[$mday];

##</code><code>##

@numbers = ( 0+$first .. 0+$last );

##</code><code>##

@alphabet = ("A" .. "Z");

##</code><code>##

$hexdigit = (0 .. 9, "a" .. "f")[$num & 15];