my $filename = <yourfile>
while (my $row = <$filename>) {
  chomp $row;
  print "$row\n";
}