use strict;

##</code><code>##

my $read;
my @lst;

##</code><code>##

open (IN, "<", "dev.csv") or die "couldn't open 'dev.csv': $!\n";

##</code><code>##

while (my $read=<IN>)
{
  print "3\n";
  chomp ($read);
  #...
}