while($line = <DATA>){
   chop $line; # remove the trailing char: \n
   ... 
 #  do your stuf

}