open FIN,"< myfile.csv" 
    or die "could not open mysfile.csv:$!";
while(my $line=<FIN>){
    chomp $line;
     my @fields=split/[\,]/,$line);
     # do something with it
}
# etc.