$perl -db0
...
  DB<4> $_ = [ qw/a b c d/ ]

  DB<5> x %$_[0,2,1]
0  0
1  'a'
2  2
3  'c'
4  1
5  'b'
  DB<6> say %$_[0,2,1]
0a2c1b
  DB<7> p $]
5.040003