my %Queues; $sql = "a valid sql statement"; $sth = $dbh->prepare($sql); $sth->execute(); while (my @Row = $sth->fetchrow_array()) { my %Hashes; $Hashes{QueueID} = 0; $Hashes{Queue} = $CustomQueue; $Hashes{MaxAge} = 0; $Hashes{Count} = $Row[0]; #print "Record Count = $Row[0] \n"; push (@{$Queues{Queues}}, \%Hashes); # set some things if ($QueueId == 0) { $Queues{TicketsShown} = $Row[0]; $Queues{TicketsAvail} = $Row[0]; } }