open (FH,'<',"$file") or die ("ERROR! Opening file $!"); #### open my $fh, '<', $file or die ("ERROR! Opening file $file $!"); #### for(my $i = 0;$i<=$#Dlines; $i++){ #### for my $i (0 .. $#Dlines) {
## open my $fh, '<', $file or die ("ERROR! Opening file $file $!"); ##
## for(my $i = 0;$i<=$#Dlines; $i++){ ##
## for my $i (0 .. $#Dlines) {