my $csv_filename = 'project_data.csv';
open my $csv_fh, '<', $csv_filename
    or die "Can't read '$csv_filename': $!";
my $parser = Text::CSV->new();
while ( my $row = $parser->getline( $csv_fh ) ) {
    # work, work, work
}
close $csv_fh or die "close() failed: $!";