$_ = 'NDDDDTSVCLGTRQCSWFAGCTNRTWNSSA 0'; my @F = split ''; @h{A..Z}=('279414924129124349625833694149780366935145850119816393903151901525290851349853' =~/.../g);say"@h{@F}"; #### @h{A..Z}=map 1023& Math::BigInt->from_base(D3PghSS0AZyLfhkL67kHFiuXWoB6p9GUkgznoeEO1eNj, 62)>>10*$_,0..25;say"@h{@F}";