for (my $i = 0; $i < scalar(@molecules); $i ++) {