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 dumps ALL of the values from the one column into arry index  '0' / $row[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 $alignment.  I can load the data into an array and it is fine. 
Query Return:
i.e.  $alignment = 'A01','B22','C99',....'nth'.

$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....
##</code><code>##

##################################
#
#  Connect to Oracle database.
#
###################################  

my $connection = DBI->connect('dbi:Oracle:xxxx','xxxx','xxxx',) 
|| die "Database connection not made: $DBI::errstr";


############################
#
#   Set up Query for Store
#
############################

my $stmt_1 = "select alignment from rd_n_dm_list"; 

############################
#
#   Prepare Query
#
############################

my $query = $connection->prepare($stmt_1); 


############################
#
#   Execute Query
#
############################

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