... while($line = <$IFH> ){ chomp $line; if(not($line eq "")) { ##### why does $line equal "" ? my @tmp = split(//,$line); ...