array => sub {
        my @list = @input;
        @list[@input] = @input;
        Compare(\@list,\@output) or die "@list" if DO_CHECK;
    },