@order       = split //, $order;
    @rearrangeme = split //, $rearrangeme;
    @indices = sort { $order[$a] <=> $order[$b] } (0..$digits-1);
    @answer = @rearrangeme[@indices];