Select Code to Download

for my $i ( 0 .. $#$proj ) {
   my $time = $dbh->selectall_arrayref($stmt, {Slice => {}}, $project_
+id);
...

   $proj->[$i]{'users'} = \@users;
}

for my $i ( 0 .. $#$proj ) {
   my $time = $dbh->selectall_arrayref($stmt, {Slice => {}}, $project_
+id);
   $proj->[$i]{'users'} = $time;
}