Help for this page
@z2 = ("01" .. "31"); print $z2[$mday];
@numbers = ( 0+$first .. 0+$last );
@alphabet = ("A" .. "Z");
$hexdigit = (0 .. 9, "a" .. "f")[$num & 15];