sub report3 { my $table = shift @_; my @statusids = @_; my $sql = " SELECT statusid, COUNT(statusid) FROM $table WHERE statusid IN (". join(',', ('?')x@statusids) . ") GROUP BY statusid "; my $sth = $DBH->prepare($sql); $sth->execute(@statusids); while (my ($statusid, $count) = $sth->fetchrow_array) { print "$statusid = $count\n"; } }