my $nextidx = $asize / 2; my $nextinc = $nextidx / 2; #### my $nextidx = int($asize / 2); my $nextinc = int($nextidx / 2);