print pack'C*',@a[map{--$_}@b];