open FH, "<database.txt" or die;
<FH>;   # ignore header line of CSV file
while ( my $project_module_list = <FH> ) {
  chomp $project_module_list;

  ## put remainder of code here

}