############################
#
#   Set the Perl Modules
#
############################

use strict;
use DBI;
use Spreadsheet::WriteExcel::Big;
use Mail::Sender;

my $i = 0;
my $j = 1;

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

my $connection = DBI->connect('dbi:Oracle:xxxxx','xxxxx','xxxxx',{
    AutoCommit => 0,
    RaiseError => 1,
    PrintError => 1,
    }) 
|| die "Database connection not made: $DBI::errstr";


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

my $stmt_1 = "select alignment from rd_list"; 

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

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


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

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

###############################
#
#   Declaration.
#
###############################

my ($alignment);

############################################
#
#   binds each column to a scalar reference
#
############################################

$query->bind_columns(undef,\$alignment);

###############################
#
#   Create Array_ref for array.
#
###############################

my $rows = $query->fetchall_arrayref;

###############################
#
#   Load data in array.
#
###############################

foreach $i(0..$#{$rows})
{
   foreach $j (0..$#{$rows->[$i]} ) 
   {
    $rows->[$i][$j];
   }
}

my $num = $query->rows;

print "\nThis process returns $num of Rd's.\n\n";


$query->finish();
$connection->rollback;
$connection->disconnect();