$order = 4213;
$before = 9876;

@ordered[split(//, $order)] = split(//, $before);
$after = join '', @ordered;