open my $textfile, '<', 'filename.txt' or die $!;
while ( my $line = <$textfile> )
{
  ## Do something with $line
}