Select Code to Download

All,
I have a simple sql process in Perl that returns distinct id's.  If I 
+load the id's into an array via a $row = $query->fetchrow_array, it d
+umps ALL of the values from the one column into arry index  '0' / $ro
+w[0].  Is there a way to read in / fetch a distinct column of values 
+from a query and place each element / item in a different array index
+....$row[0],$row[1],.....$row[n]!  The data is currently in $alignmen
+t.  I can load the data into an array and it is fine. 
...
$row[0] = 'A01', $row[1] = 'B22', $row[2] = 'C99'...$row[n] 

Finally, I am doing this to pass those id's to my Perl adn Sql code.  
+This process will keep me from setting up several perl processes for 
+the same thing.  Please help....

##################################
#
...
############################

$query->execute() or die $connection->errstr;