I like the range idea... How about leaving the @order numbers alone and using map:

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

Or in my naming

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

Ha, compare that with the original loop!

-Blake