$file = 'project_data.csv';
my $parser = Text::CSV->new();
while (my $row = $parser->getline($file)){

 @fields = @$row;
 }