#!/usr/bin/perl

use strict;
use warnings;

open(my $fh, "<", "test.txt")
	or die "cannot open < test.txt: $!";

while (my $row = <$fh>) {
  chomp $row;
  # do something 
  print "line number $.\n";
}