while (my $ref = $sth->fetchrow_hashref()) { if ($ref->{multiple}) { foreach my $i (1 .. $number_of_members) { my $new_name = "member" . $i . "_" . $ref->{name}; $ref->{name} = $new_name; $ref->{label} = "Member # $i" . " " . $ref->{label}; push @names, $ref; } } else { push @apps, $ref; } } push @names, @apps;