for(my $i = 0;$i<=$#Dlines; $i++){