Select Code to Download

use strict;

my $read;
my @lst;

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

while (my $read=<IN>)
{
...
  chomp ($read);
  #...
}