for(my $i = 64; $i < (scalar(@rddt) - (2 * $pond)); $i++){