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

##</code><code>##

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