14 for my $m1 (0 .. $#m) {
15 for my $m2 (0 .. $#m) {
18 $v[$m1][$c]++ if $m[$m1][$c] < $m[$m2][$c];
19 $v[$m1][$c]-- if $m[$m1][$c] > $m[$m2][$c];
22 for my $m1 (0 .. $#m) {
24 $m[$m1][$c] += $v[$m1][$c];
27 print Dumper \@m, \@v;
31 for my $m1 (0 .. $#m) {
34 $pot += abs($m[$m1][$c]);
35 $kin += abs($v[$m1][$c]);