my $s = "A" . pack "C*", map $shifts[$_], unpack "C*", $str;