printf qq{key %2d and %s\n}, reverse unpack q{aN} for
   sort
   map { pack q{aN}, $data{ $_ }->{ key }, 0 + $_ }
   keys %pick;