my $sth = $dbh->prepare( $sql );
$sth->execute;
my @array = $sth->fetchrow_array;