#        1         2         3
#23456789012345678901234567890
$a=hex(A);print$a--.$/for+a..j
$a=hex+A;print$a--.$/for+a..j  # (29) with a warning