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) {