open (OUT, ">", "file.csv" or die "Can't read file.csv: $!";
while (my $line = <OUT>){
   chomp $line;
   my @records = split m/,/, $line, 10;
   # do your work here
}