$n = 1; 

print $n++, ':', ord( pack 'b6', $_ ) for unpack '(a6)*', unpack 'b*', $x;;
1 : 39
2 : 31
3 : 19
4 : 52
5 : 4
6 : 21
7 : 30
8 : 16
9 : 55
10 : 57
11 : 57
12 : 50
13 : 42
14 : 63
15 : 45
16 : 0
17 : 31
18 : 33
19 : 0
20 : 36
21 : 62
22 : 51
23 : 53
24 : 21
25 : 51
26 : 14
27 : 55
28 : 50
29 : 51
30 : 41
31 : 63
32 : 19