while ($line ne ""){
        chomp($line);