@orig_array = qw(0 1 1 0 1 0 0 0 1 1 1 0 0 0 0);
@new_index_order = qw(8 3 4 9 11 6 7 0 14 10 1 12 2 5 13);