Select Code to Download

use strict;
use warnings;
...
    print "$val moved between (@orig) and (@$test)\n";
}

The sum of a sequence of integers from x to x+n equals
    ((x+n)(x+n+1) - (x-1)(x))/2