Let the mocking and fonging commence <edit> took out reverse as it was pointed out it was in void context</edit>

map{chomp($_);push @x, $_;}split,<DATA>;@y = @x[16..$#x];@z = @x[0..15
+];print chr($z[($_-1)]*2+64) for @y;

__DATA__
5
10.5
9.5
10
0.5
7
7.5
4
2.5
9
8
6
4
1.5
5.5
71
1
2
3
4
16
5
6
7
4
8
9
10
16
11
9
10
12
16
13
5
14
15
9
10
[download]