# @a = ('aeafa7cfdbd58c');

##</code><code>##

# @a = ('bcb3d8dec8dd', 'b4d6c7ea52a7',);

##</code><code>##

# @h = ('6a', 61, 54, 76, 32, 66, '4e', 44, 64, 76, 63, '6b', '6f',);

##</code><code>##

# @a = ('bcb3d8dec8dd', 'b4d6c7ea52a7', 'aeafa7cfdbd58c',);

##</code><code>##

# @a = ('bcb3d8dec8dd', 'b4d6c7ea52a7', undef, 'aeafa7cfdbd58c',);

##</code><code>##

# @a = ('bcb3d8dec8dd', 'b4d6c7ea52a7', '8fbac5c5e252', 'aeafa7cfdbd58c',);

##</code><code>##

# $x = 'b4d6c7ea52a7bcb3d8dec8dd8fbac6c6e252aeafa7cfdbd58c';

##</code><code>##

# @b = ('b4', 'd6', 'c7', 'ea', 52, 'a7', 'bc', 'b3', 'd8', 'de', 'c8', 'dd', '8f', 'ba', 'c6', 'c5', 'e2', 52, 'ae', 'af', 'a7', 'cf', 'db', 'd5', '8c',);

##</code><code>##

# @z = ('6a', 61, 54, 76, 32, 66, '4e', 44, 64, 76, 63, '6b', '6f', '6a', 61, 54, 76, 32, 66, '4e', 44, 64, 76, 63, '6b', '6f',);

##</code><code>##

# For each iteration of the loop, here are the values of $n, $_, hex($_), $z[$n], hex($z[$n]), and hex($_)-hex($z[$n]):
# undef 'b4'    180     '6a'    106     $japh[ 0] = 74
#  1	'd6'    214     '61'    97      $japh[ 1] = 117
#  2	'c7'    199     54      84      $japh[ 2] = 115
#  3	'ea'    234     76      118     $japh[ 3] = 116
#  4	52      82      32      50      $japh[ 4] = 32
#  5	'a7'    167     66      102     $japh[ 5] = 65
#  6	'bc'    188     '4e'    78      $japh[ 6] = 110
#  7	'b3'    179     44      68      $japh[ 7] = 111
#  8	'd8'    216     64      100     $japh[ 8] = 116
#  9	'de'    222     76      118     $japh[ 9] = 104
# 10	'c8'    200     63      99      $japh[10] = 101
# 11	'dd'    221     '6b'    107     $japh[11] = 114
# 12	'8f'    143     '6f'    111     $japh[12] = 32
# 13	'ba'    186     '6a'    106     $japh[13] = 80
# 14	'c6'    198     61      97      $japh[14] = 101
# 15	'c5'    197     54      84      $japh[15] = 114
# 16	'e2'    226     76      118     $japh[16] = 108
# 17	52      82      32      50      $japh[17] = 32
# 18	'ae'    174     66      102     $japh[18] = 72
# 19	'af'    175     '4e'    78      $japh[19] = 97
# 20	'a7'    167     44      68      $japh[20] = 99
# 21	'cf'    207     64      100     $japh[21] = 107
# 22	'db'    219     76      118     $japh[22] = 101
# 23	'd5'    213     63      99      $japh[23] = 114
# 24	'8c'    140     '6b'    107     $japh[24] = 33

# And the resulting values in @japh:
@japh = ( 74, 117, 115, 116, 32, 65, 110, 111, 116, 104, 101, 114, 32, 
80, 101, 114, 108, 32, 72, 97, 99, 107, 101, 114, 33, );

# For those of you who may have forgotten your handy-dandy ASCII 
# decoder ring, here you go:
# 
# ord   char    ord     char    ord     char
# 32    {space} 33      !       65      A	
# 72    H       74      J       80      P	
# 97    a       99      c       101     e
# 104   h       107     k       108     l
# 110   n       111     o       114     r
# 115   s       116     t       117     u

##</code><code>##

# Just Another Perl Hacker!