%x=(qw/10 24 37 4,12,17 87 5,19 90 20 92 10,14,22 97 9,18 100 
0 103 21 104 16 108 6 113 7 114 13 119 11,15,23 122 2 123 3,8 
125 1 /);for$i(0..125){$h{$i}=0;if(exists$x{$i}){for(split/,/
,$x{$i}){$t=scalar%h;$t=~/\d+/;$z[$_]=chr$&}}}print@z