- while ($sqlhashref = $sth->fetchrow_hashref) {
- $individual = $sqlhashref{individual};
- $name = $sqlhashref{name};
+ my @individual_data = ();
+ while ($sqlhashref = $sth->fetchrow_hashref) { push(@individual_data, $sqlhashref); }
+ my $individual_count = scalar @individual_data;
+ for($i=0;$i<$individual_count;$i++) {
+ $individual = $individual_data[$i]{'individual'};
+ $name = $individual_data[$i]{'name'};