my $i = 0; $x[ $i ] -= $x[ ++$i ] while $i < $#x; --$#x;